Тема: hello мужики
Показать сообщение отдельно
  #4  
Старый 17.04.2018, 22:00
help me help me вне форума
Прохожий
 
Регистрация: 28.03.2018
Сообщения: 5
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от 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

по второму коду запись идет.
теперь интересует:
можно ли открыть этот текстовик после этой процедуры?
Ответить с цитированием