Alle Editfelder in txt speichern

[sniper_w]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  StringList:TStringList;
begin
  StringList := TStringList.Create();
  StringList.BeginUpdate();
  for i:=0 to ComponentCount-1 do
  begin
    if Components[i] is TEdit then
    begin
      StringList.Add( TEdit(Components[i]).Text );
    end;
    if Components[i] is TComboBox then
    begin
      StringList.Add( TComboBox(Components[i]).Text );
    end;
  end;
  StringList.EndUpdate();
  StringList.SaveToFile( 'c:\myEditFelder.txt' );
end;