файлы в делфи

[BDA]

Лучше бы написали, где текст какого едита
<edit1><edit2><edit3>
<edit4><edit5><edit6>
<edit7><edit8><edit9>
так?

procedure TForm1.Button1Click(Sender: TObject);
var
  ts: tstringlist;
  i: integer;
begin
  if savedialog1.Execute then
  begin
    ts := tstringlist.create;
    for i := 0 to 2 do
      ts.add((FindComponent('edit' + inttostr(1+3*i)) as TEdit).Text+
      (FindComponent('edit' + inttostr(2+3*i)) as TEdit).Text+
      (FindComponent('edit' + inttostr(3+3*i)) as TEdit).Text);
    ts.SaveToFile(savedialog1.FileName);
    ts.Free;
  end;
end;

[ПИнасол]

спасибо,тема закрыта