Moin Chris,
also so aufwändig finde ich das nicht.
Mal kurz umrissen:
Code:
[color=#000080]// Schreiben[/color]
ini.EraseSection('Section');
ini.WriteInteger('Section','rowcount',Memo1.Lines.Count);
[b]for[/b] i := 0 [b]to[/b] Memo1.Lines.Count-1 [b]do[/b]
[b]begin[/b]
ini.WriteString('Section','row'+IntToStr(i+1),Memo1.Lines[i]);
[b]end[/b];
[color=#000080]// Lesen[/color]
Memo1.Lines.Clear;
iCount := ini.ReadInteger('Section','rowcount',0);
[b]for[/b] i := 1 [b]to[/b] iCount [b]do[/b]
[b]begin[/b]
Memo1.Lines.Add(ini.ReadString('Section','row'+IntToStr(i),''));
[b]end[/b];
Ist zwar ungetestet, sollte soweit aber stimmen.