Edit-Felder in Stringliste speichern

[Thomas F]

Ich möchte 10 Edit-Felder in einer Stringliste speichern. :-D
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 ? :corky:

[grenzgaenger]

dann nimm doch einfach ein stringgrid :-)

[taaktaak]

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich

Delphi-Quellcode:

TEdit(Components[i];

bewirken????

[grenzgaenger]

weil das wieder 'n typische :glaskugel: geschichte ist ...

[grenzgaenger]

Zitat:

Zitat von taaktaak

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich

Delphi-Quellcode:

TEdit(Components[i];

bewirken????

einen syntax error ;-)

[Thomas F]

Zitat:

Zitat von taaktaak

Warum nicht TStringList.Add() ?

// edit: Was soll denn eigentlich

Delphi-Quellcode:

TEdit(Components[i];

bewirken????

ist mir ein Fehler passiert

Delphi-Quellcode:

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:

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:

Zitat von Thomas F

Zitat:

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. :glaskugel: