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:

[taaktaak]

Also bei mir nicht.
Hab's mit 3 Edits versucht, eines davon ist leer.

[Thomas F]

Okay

Aber wie schreib ich das beim Programmstart,
wenn die Stringlist die Strings in die Edit-Felder schreibt,
und einige Felder leer sind ?

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
Stringliste.LoadFromFile('TEST.txt');
 .....
end;

[grenzgaenger]

wie meinst du das? :glaskugel:

poste doch endlich mal etwas mehr code... als die verstümmtelten fragemente, mit dennen man nix anfangen kann ...

[Thomas F]

Die Strings werden gespeichert und beim Programmstart werden dieselben Werte
wieder in die Edits eingfügt.
Praktisch umgekehrt

[grenzgaenger]

und wie machst du das? :glaskugel:

[mkinzler]

Wasch mich, mach mich aber nicht nass ... :gruebel:

[Thomas F]

Ich meine, wie werden die Strings wieder in den Edits angezeigt ?

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
Stringlist.LoadFromFile('TEST.txt');
 Edit1.Text:= Stringliste.Strings[0];
 Edit2.Text:= Stringliste.Strings[1];
.
.
.
.
 
end;

[grenzgaenger]

und wo taucht der fehler auf?

[taaktaak]

Funktioniert das Speichern denn jetzt?

[Thomas F]

Zitat:

Zitat von taaktaak

Funktioniert das Speichern denn jetzt?

Speichern funktioniert, aber das Laden nicht.
Wenn man in der Eingabemaske was veränder will ,
müssen die Werte doch wieder erscheinen

[grenzgaenger]

Zitat:

Zitat von grenzgaenger

und wo taucht der fehler auf?

[taaktaak]

hm...
Hast du überprüft, das in der Stringliste nach dem Laden der Datei auch was drin ist?

[grenzgaenger]

Zitat:

Zitat von taaktaak

hm...
Hast du überprüft, das in der Stringliste nach dem Laden der Datei auch was drin ist?

taaktaak, lass ihn doch erst mal sagen, wo der fehler kommt... und was das für einer eigentlich ist...

hab keine lust auf kaffeesatzlesen...

aber zwischenzeitlich eine vermutung.. du wohl auch ;-)

[Thomas F]

Zitat:

Zitat von grenzgaenger

Zitat:

Zitat von grenzgaenger

und wo taucht der fehler auf?

Ich habs doch gesagt , wenn die Strings wieder in die Edits geladen werden

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject); 
begin 
Stringlist.LoadFromFile('TEST.txt'); 
Edit1.Text:= Stringliste.Strings[0]; 
Edit2.Text:= Stringliste.Strings[1]; 
. 
. 
. 
. 
Edi10.Text := Stringlist.Strings[9];
end;

wenn z.B. der String

Delphi-Quellcode:

Stringliste.Strings[1]:=''

dann gibts eine Exception

[mkinzler]

Das wäre mir neu. Wie sieht den die Textdatei aus?

[grenzgaenger]

davon gibts keine exception...!!!!

was gibts denn für eine? hab ich hier schon mind. 5 mal gefragt.. ein wenig mitarbeiten könntest du auch, wenn wir dir schon beim lösen DEINES problems helfen sollen ...

[Thomas F]

Bei mir gibts ne Exception

Listenindex überschreitet das Maximum(3) , wenn nur ein Edit-Feld ausgefüllt wurde

in der TEST.txt stehen die Werte , die ich eingegeben habe ,
Aber nur beim Neustart des Programms gibts die Exception.

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
begin
Stringliste.LoadFromFile('TEST.txt');
 Edit2.Text:= Stringliste.Strings[1];
 Edit3.Text:= Stringliste.Strings[2];
 Edit5.Text:= Stringliste.Strings[4];
 Edit1.Text:= Stringliste.Strings[0];
 Edit10.Text:= Stringliste.Strings[9];
.
.
.
.
end;

[grenzgaenger]

gut. mit dieser meldung kann man was anfangen...

wie viele einträge hast du denn in deiner text datei? theoretisch müssten es drei sein, da die meldung kommt, .. (3) --> 4 listeintrag.

[mkinzler]

Mit wie meinte ich die Anzahl der Zeilen. Es existieren dort weniger Zeilen, als du auslesen willst

[Thomas F]

in der Textdatei steht nur eine Zeile

Debugger Exception ....Exception der Klasse EStringListError

Ja, wahrscheinlich liegt es daran, dass weniger Zeilen existieren, als ich auslesen will

Das kommt daher, wenn nicht alle Edit-Felder ausgefüllt sind.

wenn alle Edits einen Eintrag haben, gibts keine Exception

[taaktaak]

Also noch mal:
Auch leere Edits werden gespeichert.
Dann steht in der Datei nur 0D0A für diese Zeile.
Ebenso werden leere Zeilen wieder eingelesen.

[grenzgaenger]

du kannst halt nur die zeilen zuweisen, welche du hast...

musst halt sicherstellen, dass deine textdatei immer alle werte aufweisen oder bei der laufzeit entsprechend validieren... :-)

Delphi-Quellcode:

for i := 0 to sl.count -1 do
  (findcomponent(myEdit+inttostr(i)) as tEdit).text := sl.strings[i];

[grenzgaenger]

Zitat:

Zitat von taaktaak

Also noch mal:
Auch leere Edits werden gespeichert.
Dann steht in der Datei nur 0D0A für diese Zeile.
Ebenso werden leere Zeilen wieder eingelesen.

in diesem falle, wäre aber die zeile in SL assigned.. und würde eben auf '' gesetzt ...

aber das kann er ja einfach mit einem hexeditor prüfen :-) und auch mit dem debugger.. kurz zuvor auf die fehlerstelle setzen und dan mit F7, F8 durchsteppen und sich dabei die wichtigsten variablen ansehen... :-)

[Thomas F]

Diesen Code hab ich probiert, keine Exception, aber auch keine Strings :cry:
obwohl die TEST-Datei gefüllt ist

Delphi-Quellcode:

procedure TForm4.FormShow(Sender: TObject);
var K: Integer;   myEdit:String;
begin
Stringlist.LoadFromFile('TEST.txt');

  for K := 0 to stringlist.count -1 do
  (findcomponent(myEdit+inttostr(k)) as TEdit).text := stringlist.strings[k];
end;

[Thomas F]

Ich habs nochmal ausführlich getestet, nur wenn die Datei 'Test.txt' noch nicht existiert oder

0 kb hat, also völlig leer ist dann gibts ne Exception

Delphi-Quellcode:

if not FileExists ('Test.txt') Then filecreate('Test.txt')..........

ändert leider auch nichts

[mkinzler]

Dass Problem ist das eine leere Datei immer noch keine Zeilen hat. Wenn du diese einliest hat die StringListe 0 Zeilen. Wenn du dann auf irgendeinen der Strings zugreifen willst knallt es halt. Du musst die Anzahl der Zeilen abfragen

[DeddyH]

Wenn Datei existiert, dann:
- Stringliste aus Datei befüllen
- zur Kontrolle Zeilen zählen
- Text den Edits zuweisen

[edit] Mal wieder zu spät *grmpf* [/edit]

[Thomas F]

Zitat:

Zitat von DeddyH

Wenn Datei existiert, dann:
- Stringliste aus Datei befüllen
- zur Kontrolle Zeilen zählen
- Text den Edits zuweisen

[edit] Mal wieder zu spät *grmpf* [/edit]

Komischerweise, wenn die Datei 1 kb hat, aber überhaupt nichts drinsteht,

optisch völlig leer ist , gibts keine Exception

wenn die Datei 0 kb hat gibts ne Exception,

da steht unsichtbar irgendwas drin.

[DeddyH]

Dann stehen vermutlich nur Zeilenumbrüche drin und die sieht man normalerweise nicht.

[Thomas F]

Ich hab die Lösung gefunden

Delphi-Quellcode:

if Stringlist.Count = AnzahlEdits -1 then
begin

Stringlist.LoadFromFile('Test.txt')......................