Edit-Felder in Stringliste speichern

[Thomas F]

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 ?

[grenzgaenger]

dann nimm doch einfach ein stringgrid

[taaktaak]

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich
TEdit(Components[i]; bewirken????

[grenzgaenger]

weil das wieder 'n typische geschichte ist ...

[grenzgaenger]

Zitat von taaktaak:

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich
TEdit(Components[i]; bewirken????

einen syntax error

[Thomas F]

Zitat von taaktaak:

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich
TEdit(Components[i]; bewirken????

ist mir ein Fehler passiert
TEdit(Components[i]).text

[taaktaak]

Ok!
Men Vorschlag:

Delphi-Quellcode:

// ..
for i:=0 to ComponentCount-1 do
  if Components[i] is TEdit then StringList.Add(TEdit(Components[i]).Text);
// ..

// edit: Gibt es die StringListe überhaupt?

[Thomas F]

Zitat von taaktaak:

Ok!
Men Vorschlag:

Delphi-Quellcode:

// ..
for i:=0 to ComponentCount-1 do
  if Components[i] is TEdit then StringList.Add(TEdit(Components[i]).Text);
// ..

Funktioniert aber nicht, wenn ein Edit leer bleibt, dann gibts Exception.

[grenzgaenger]

die frage ist doch auch, was "stringliste" in seinem code ist .. und was sie macht...

[grenzgaenger]

Zitat von Thomas F:

Zitat von taaktaak:

Ok!
Men Vorschlag:

Delphi-Quellcode:

// ..
for i:=0 to ComponentCount-1 do
  if Components[i] is TEdit then StringList.Add(TEdit(Components[i]).Text);
// ..

Funktioniert aber nicht, wenn ein Edit leer bleibt, dann gibts Exception.

und welche exception gibt es bspw.