Edit-Felder in Stringliste speichern

[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 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
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

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 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')......................