Mehrzeiligen Text in Ini speichern

[axelf98]

So gehts mit einer Ini-Datei:

Delphi-Quellcode:

  files := tinifile.Create('C:\test.ini');

   files.Writeinteger('Text','lines',memo1.lines.count-1);  // Anzahl Zeilen

  for i := 0 to (memo1.Lines.Count-1) do
     files.WriteString('Text','Zeile'+inttostr(i),memo1.Lines.Strings[i]);
  files.Free;

Beim Auslesen natürlich einfach das Memo mit einer Schleife füllen:

Delphi-Quellcode:

  memo1.Lines.Clear;
  files := tinifile.Create('C:\test.ini');

  for i := 0 to files.ReadInteger('Text','lines',-1) do       // Memo füllen
   begin
    Memo1.Lines.Add( files.readstring('Text','Zeile'+inttostr(i),'-'));
   end;

  files.free;