Цитата:
Сообщение от nixon232
Код:
var
t : TextFile;
begin
AssignFile(t,'FileName.txt');
Rewrite(T);
Writeln(T,Edit1.Yext);
CloseFile(T);
end;
Можно так
Код:
var
sl : TStringList;
begin
sl := TStringList.Create;
sl.LoadFromFile('FileName.txt');
sl.add(edit.text);
sl.SaveToFile('FileName.txt');
end;
По хорошему, нужно заключить в try.... finally
|
по второму коду запись идет.
теперь интересует:
можно ли открыть этот текстовик после этой процедуры?