Ich habe deinen Code ausprobiert und kann dein Problem nicht nachvollziehen, bei mir funktioniert alles.
Aber warum das Memo AM ENDE leer ist, lässt sich erklären:
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 auch "0"
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; //HIER DER FEHLER, LEERT MEMO AM ENDE
end;