Hallo habe mal wieder ein Problem.
Habe bestimmt 1000x diese Sequenz programmiert und vorher nie Schwierigkeiten damit gehabt,
Ich will beim Starten einer Anwendung ein Konfigurationsfile laden und er macht dabei einen Laufzeitfehler :
Delphi-Quellcode:
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
procedure TForm1.FormCreate(Sender: TObject);
var
Stream : TStream;
Reader : TReader;
i,j : integer;
Setup : array[1..150] of string;
//++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
begin
Stream:=TFileStream.Create(SetupVerzeichnis+SetupDatei,fmOpenRead);
Reader:=TReader.Create(Stream,2048);
Reader.ReadListBegin; // ** und hier macht er einen ExceptionFehler
for i := 1 to 150 do
begin
Setup[i]:=Reader.ReadStr;
end;
Reader.ReadListEnd;
Reader.Free;
Stream.Free;
pGrad:= StrToInt(Setup[3]);
for i := 0 to 9 do
begin
pKoef[i]:= StrToFloat(Setup[4+i]);
end;
for i := 1 to 26 do
begin
EFilm.Werte[1,i]:= StrToFloat(Setup[20+i]);
EPlan.Werte[1,i]:= STrToFloat(Setup[70+i]);
Werte[i]:= StrToFloat(Setup[120+i]);
end;
end;
Die Fehlermeldung lautet:
"Im Projekt EB_Project.exe ist eine
Exception de Klasse EReadError aufgetreten. Meldung: 'Ungültiger Eigenschaftswert'. Prozess wurde angehalten. Mit Einzelne Anweisung oder Start fortsetzen."
Kennt jemand soetwas und/oder hat jemand eine Idee?
Danke
E. B.