Ct757
Сообщений: 135
Оценки: 0
Присоединился: 2005-03-29 19:39:30
|
AsteroID
Что-то типа этого:
procedure SaveEditToTXT; var f: TextFile; begin AssignFile(f, 'file.txt'); ReWrite(f); WriteLn(f, Edit1.Text); CloseFile(f); end;
procedure LoadEditFromTXT; var f: TextFile; s: String;
begin AssignFile(f, 'file.txt'); Reset(f); ReadLn(f, s); Edit1.Text:=s; CloseFile(f); end;
|