Ich möchte 10 Edit-Felder in einer Stringliste speichern.
Das soll eine Eingabe-Maske werden, und beim Neustart sollen die Felder wieder mit den Einträgen (von der Stringlist)gefüllt werden. 8)
Problem ist wenn ein oder mehrere Edits leer bleiben, dann erhält man immer eine
Exception :
"Listenindex überschreitet das Maximum"
Delphi-Quellcode:
procedure TForm4.Button1Click(Sender: TObject);
var i:Integer;
begin
for i :=0 to ComponentCount -1 do
begin
if Components[i] is TEdit then Stringliste.Strings[i]:= TEdit(Components[i]).Text;
end;
Stringliste.SaveToFile('TEST.txt');
Form4.Close;
end;
procedure TForm4.FormCreate(Sender: TObject);
begin
Stringliste := TSTringlist.Create;
end;
Weiss jemand, wie man das am besten macht ?
