Hi!
Ich habe ein Problem. Ich lade aus einer Datei, die mit meinem Programm gespeichert wurde diese auch wieder.
Leider kriege ich immer die Meldung bei Exception.
Hier mal der Code:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
| If Not OpenDialog1.Execute Then Exit;
Try
Try
Loadstream := TStringList.Create;
Loadstream.LoadFromFile(OpenDialog1.FileName);
Anz_Monster := StrToInt(Loadstream[0]);
Anz_Zauber := StrToInt(Loadstream[1]);
Anz_Fallen := StrToInt(Loadstream[2]);
For I := 0 To Loadstream.Count Do Begin
Pos_Mainbox := 3;
If Loadstream[I] = '@Sidebox' Then Pos_Sidebox := I;
If Loadstream[I] = '@Extrabox' Then Pos_Extrabox := I;
If Loadstream[I] = '@Gesamtbox' Then Pos_Gesamtbox := I;
If Loadstream[I] = '@Mainbox2' Then Pos_Mainbox2 := I;
If Loadstream[I] = '@Sidebox2' Then Pos_Sidebox2 := I;
If Loadstream[I] = '@Extrabox2' Then Pos_Extrabox2 := I;
If Loadstream[I] = '@END' Then Pos_End := I;
End;
|
Ich habe immer Stückweise den Code in {} gesetzt und herausgefunden, dass EXCEPT ERST DURCHLAUFEN WIRD, wenn ich den Block mit der FOR-Schleife durchlaufen lasse. Ich hab gegoogelt aber COUNT scheint richtig zu sein...
Sieht jemand meinen Fehler?
Gruß,
Terra
Terra23
