[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;

Вот и все.