Text in TIniFile speichern

[Orbmu2k]

Man könnte entweder die Zeilenumbrüche in "normale" Zeichen kovertieren und beim laden wieder in Zeilenumbrüche machen oder du speicherst den Text Zeile für Zeile->

Delphi-Quellcode:

//Speichern

for i := 0 to Pred(Memo1.Lines.Count) do
  ini.WriteString('Memo1','Line'+IntToStr(i),Memo1.Lines[i]);

//Laden

Memo1.Clear;
i:=0;
while ini.ValueExists('Memo1','Line'+IntToStr(i)) do
begin
  Memo1.Lines.Add(ini.ReadString('Memo1','Line'+IntToStr(i),''));   
  Inc(i);
end;