Inhalt von EditFeldern speichern

[himitsu]

Nun ja, zuerst kannst du ja über FindComponent die Edits suchen, brauchst also nicht jedes einzeln behandeln.

Delphi-Quellcode:

var 
  MyList: TStringList; 
  i: Integer;
begin 
  MyList := TStringList.Create; 
  for i := 1 to 26 do
    MyList.Add(TEdit(FindComponent('Edit' + IntToStr(i))).Text);
  MyList.SaveToFile('Dateiname.txt');
  MyList.Free;
end;

Delphi-Quellcode:

var 
  MyList: TStringList; 
  i: Integer;
begin 
  MyList := TStringList.Create; 
  MyList.LoadFromFile('Dateiname.txt');
  for i := 1 to 26 do
    TEdit(FindComponent('Edit' + IntToStr(i))).Text := MyList[i - 1];
    // -1, da der Index in der Stringlist mit 0 beginnt
    // MyList[...] entspricht MyList.Strings[...]
  MyList.Free;
end;

Allerding alles ohne Fehlerkontrollen und so...