Hallo liebes Forum,
ich habe ein Problem mit der Funktion LoadFromFile.
Ich möchte eine Textdatei laden, die in 14 Zeilen Zahlen stehen hat. Nur lädt er in Zeile 12 und 14 immer eine Null rein, egal was ich dort stehen habe.
Delphi-Quellcode:
Parameter.LoadFromFile(OpenDialog1.FileName);
Edit1.text:=Parameter[0];
Edit2.text:=Parameter[1];
Edit3.text:=Parameter[2];
Edit4.text:=Parameter[3];
Edit5.text:=Parameter[4];
Edit6.text:=Parameter[5];
Edit7.text:=Parameter[6];
Edit8.text:=Parameter[7];
Edit9.text:=Parameter[8];
Edit10.text:=Parameter[9];
Edit11.text:=Parameter[10];
Edit12.text:=Parameter[11];
Edit13.text:=Parameter[12];
if StrToInt(Parameter[13])=1 then Edit14.text:='low'
else if StrToInt(Parameter[13])=2 then Edit14.text:='medium'
else if StrToInt(Parameter[13])=3 then Edit14.text:='high'
else Edit14.text:='WRONG!';
Parameter ist eine TStringList und wird bei mir wie folgt initiiert:
Delphi-Quellcode:
Parameter:=TStringList.Create;
for i:=0 to 13 do
Parameter.add('');
Ich hoffe ihr könnt mir helfen. Ich habe die Textdatei mal mit angehangen.
MfG Thorsten