Сохранение в TXT фйл

[M@rsel]

Как текст из Edit'ов (здесь их 2) сохранит в тестовой файл на разных строчках, а потом открыть в первый Edit
первую строку,а во второй вторую?
Заранее благодарен.

[12usver12]

Долго писать в Библии Делфи подробно рассматрено это все

[AVer]

Примерно так:

var F:TextFile;
begin
AssignFile(F,'FileName.txt');
ReWrite(F);
WriteLn(Edit1.Text);
WriteLn(Edit2.Text);
...
Close(F);
ReSet(F);
ReadLn(F,Edit1.Text);
ReadLn(F,Edit2.Text);
...
end.

[12usver12]

или вот так



procedure TForm1.FormActivate(Sender: TObject); // для примера
var f:tstringlist; f0:tfilestream;
if not FileExists('c:\date.txt') then begin
f0:=tfilestream.Create('c:\date.txt ',fmcreate );// создаем файл
f0.Free;
f:= TStringList.Create();


f.Add(Edit1.Text); // <- добавить новую строку в файл
f.SaveToFile('c:\date.txt');
f.Free;




// а читать из файла

f:= TStringList.Create();
f.LoadFromFile('с:\filename.txt'); //
f.strings[0] // это и будет твоя первая строка из файла

[AVer]

Это конечно несколько сложнее, но тоже вариант. Что выбрать - решать M@rsel'у. Основное отличие в том, что в моем варианте файл создается каждый раз поновой, а в твоем используетя существующий. И где он очищается? Онведь будет писать и писать, а как же стирать?

[M@rsel]

Спосибо только у меня почему-то
здесь

ReadLn(F,Edit2.Text);

пишет
Left side cannot assign to

[-=DeS=-]

procedure TForm1.FormCreate(Sender: TObject);
var
txt: TStrings;
begin
if FileExists (ExtractFilePath (ParamStr (0)) + 'lol.lst') then begin
txt := TStringList.Create;
try
txt.LoadFromFile (ExtractFilePath (ParamStr (0)) + 'lol.lst');
finalli
txt.Free;
end;
end;
end;

В коде ошибки...копипастить невыдет!!!
Это чтение, а сохранить можно так

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
m: integer;
p: TextFile;
begin
AssignFile(p,'uin.lst');
Rewrite(p);
Writeln(p,UIN.text,Pass.text);
CloseFile(p);
end;

Я так в боте сохранял номер и пароль...ну и конечно ошибки присутствуют =)