[CyberDemon]

уже замучался. помогите пожалуйста. в общем ситуация такова -
Пишу программу в которой нужно будет зарегистрироваться, данные о регистрации сохранятются в текстовый файл. При последующих запусках необходимо считать данные из текстовика, если таковые данные есть, то пропустить, если нет, то выдать ошибку. Помогите пожалуйста, я сегодня весь день сижу над этим, уже весь гугл обошел (((.
За ранее благодарю

[Drozh]

Гляди в сторону либо *.ini файлов либо Реестра
Создаешь два параметра: Имя и Пароль
При каждом запуске программы проверяешь на наличие этих параметров,
если они присутствуют то продолжаешь если нет требуешь юзера ввести

[M.A.D.M.A.N.]

Все просто
смотри

Код:

var SaveStream:TMemoryStream;
      Text:String;
begin
  savestream:=tmemorystream.create;
  text:=edit1.text;
  savestream.write(text,length(text));
  savestream.savetofile('FileName.txt');
  savestream.free;
end;

можно использовать TextFile но потоки более удобны.
как работать с TextFile;

Код:

var f:textfile;
begin
  assignfile(f,'c:\123.txt');
  rewrite(f);
  write(f,text);
  closefile(f);
end;

[CyberDemon]

Drozh
Будет много пользователей и это все сохранять в реестре будет жирно...

M.A.D.M.A.N
Спс, попробую
к стате:

var SaveStream:TMemoryStream;
Text:String;
begin
savestream:=tmemorystream.create;
text:=edit1.text;
savestream.write(text,length(text));
savestream.savetofile('FileName.txt');
savestream.free;
end;

Мне нужно с двух edit считать данные и в один тхт сохранить, как код подправить?

[CyberDemon]

Народ ну помогите плз

[M.A.D.M.A.N.]

Код:

var SaveStream:TMemoryStream;
Text:String;
begin
savestream:=tmemorystream.create;
text:=edit1.text;
savestream.write(text,length(text));
text:=edit2.text;
savestream.write(text,length(text));
savestream.savetofile('FileName.txt');
savestream.free;
end;

Вот и все.

[ART]

Думаю, этих функций хватит:

Код:

unit Unit1;

interface

uses
  Windows,  Messages,  SysUtils,  Variants,  Classes,  Graphics,  Controls,  Forms, 
  Dialogs,  StdCtrls;

type
  TUser  =  record
   Password: string;
   Name: string;
  end;

type
  TForm1  =  class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R  * .dfm}

function User(N,  P: string): TUser;
begin
 Result.Name  :=  N;
 Result.Password  :=  P;
end;

procedure AddUser(User: TUser);
begin
 AssignFile(output,  'C:\Users.txt');
 Append(output);
  Writeln(User.Name);
  Writeln(User.Password);
 CloseFile(Output);
end;

function UserExists(User: TUser): boolean;
var
 P,  N: string;
begin
 AssignFile(input,  'C:\Users.txt');
 Reset(input);
 while not eof(input) do begin
  readln(N);
  readln(P);
  if (User.Name  =  N) and (User.Password  =  P) then begin
   Result  :=  true;
   CloseFile(input);
   exit;
  end;
 end;
Result  :=  false;
CloseFile(input);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 if UserExists(User(Edit1.Text,  Edit2.Text))  =  false then Showmessage('Ты кто такой? Иди нафиг отсюда!') else Showmessage('Добро пожаловать!');
end;

end.

[CyberDemon]

M.A.D.M.A.N.
ART
СПАСИБО БОЛЬШОЕ, ПРЕМНОГО БЛАГОДАРЕН!!!

[CyberDemon]

Народ и снова я ....
Вот такая задача -
AssignFile(f,'C:\WINDOWS\system\' +Edit3.text + '.dll'); \\\\Здесь сохраняю в файл
ReWrite(f);
Writeln(f, Edit3.text); //записываем в линию 0 (Логин)
Writeln(f, Edit5.text); //записываем в линию 1 (пароль)

И далее мне надо, что бы все, кто регистрируется в программе, сохранялись в отдельный файл, что то типо такого:

AssignFile(f, 'C:\WINDOWS\system\Information.dll');\\\\ сюда вот сохраяем
ReWrite(f);
Writeln(f,#10+#13 +Edit3.text+' ' +Edit5.text+#10+#13); \\\ вот здесь мне необходимо, что бы все время начиналось с новой строки, т.е. что бы предыдущие строки не затирались. Если у нас в файле 255 строк то он запишет в 256
Closefile(f); {Closes file F}

[Act]

длл то тут причем? так для мулежа? ну а так код верно записан что не нравится или не работает?