Einzelnen Beitrag anzeigen

Benutzerbild von Orbmu2k
Orbmu2k

Registriert seit: 29. Nov 2004
Ort: Erfurt
254 Beiträge
 
Turbo Delphi für Win32
 
#7

Re: Text in TIniFile speichern

  Alt 31. Mär 2005, 14:52
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;
  Mit Zitat antworten Zitat