Also ich verstehe die Welt nicht mehr!
Mit einer einfachen Procedure möchte ich Werte aus einer Textdatei auslesen. Der erste Wert wird auch - wie erwartet - ausgelesen. Wenn die Procedure aber jedoch den zweiten Wert auslesen will, ist das Memo, in welches ich die Textdatei geladen habe, plötzlich leer! Ich habe keine Ahnung, wodran das liegen könnte! Bitte um Hilfe...
Delphi-Quellcode:
procedure TKForm.LoadConfig;
begin
Memo.Clear;
Memo.Lines.LoadFromFile(ConfigFile);
showmessage(Memo.Lines[Memo.Lines.IndexOf('[Einstellungen]')+1]); // ergibt "0"
if Memo.Lines[Memo.Lines.IndexOf('[Einstellungen]')+1]='0' then begin
RBMonth.Checked:=true;
EinstForm.RadioButton1.Checked:=true;
end else begin
RBAll.Checked:=true;
EinstForm.RadioButton2.Checked:=true;
end;
//Memo.Lines.SaveToFile('C:\Windows\Desktop\test.txt'); //ich erhalte eine leere Datei
showmessage(Memo.Lines[Memo.Lines.IndexOf('[Einstellungen]')+1]); // ergibt "" ???
if Memo.Lines[Memo.Lines.IndexOf('[Einstellungen]')+2]='0' then
EinstForm.CBColor.Checked:=false
else
EinstForm.CBColor.Checked:=true;
{ noch ein paar Zeilen...}
Memo.Clear;
end;