[help me]

интересует самый простой пример вывода с editов по button
на текстовый документик .txt
буду признателен

[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

[Alegun]

Не, а если их много, ведь ТСу нужно "вывода с editов по button", тогда лучше так

Код:

procedure TForm1.ButtonClick(Sender: TObject);
var
 i: integer;
begin
 with TStringList.Create do
  begin
   for i := 0 to ComponentCount - 1 do
    if Components[i] is TEdit then
     Add((Components[i] as TEdit).Text);

   SaveToFile('FileName.txt');
   Free;
  end;
end;

[help me]

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

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

[nixon232]

мне казалось, что такую мелочь проще проверить, чем спрашивать

ps во втором варианте не хватает sl.free.
pps А вообще, вариант Alegun предпочтительней ввиду универсальности.