[Brons14]

Помогите пожалуйста сохранить текст из Edit'а в конец текстового файла

Код:

var
f: TextFile;
text: string;
begin
if SaveDialog1.Execute then
text:=Edit1.Text;
 assignfile(f,SaveDialog1.FileName);
 write(f, text);
 closefile(f);
 Append(f);
end;

[AND_REY]

Так попробуй:

Код:

 ....
 assignfile(f,SaveDialog1.FileName);
 Append(f);
 write(f, text);
 closefile(f); 

[Brons14]

Да все работает, большое спасибо!