mehrere edit.text felder speichern

[Nalincah]

So klappts:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
T:TStrings;
i,j:integer;
begin
  T := TStringList.Create;
  try
    for i := 0 to Form1.ComponentCount - 1 do
    begin
      if Form1.Components[i].ClassType = TEdit then
        T.Add(TEdit(Form1.Components[i]).Text);
    end;
    T.SaveToFile('c:\Datei.txt');
  finally
    T.Free;
  end;
end;