Du hast neben dem ständigen Neuerzeugen des Inifiles auch ein paar andere Sachen nicht soooo gut gelöst.
- Du hast Section und Key vertauscht
- Warum sollte man die Nummer des Eintrages speichern?
- Außerdem hattest du für jedes SubItem fixen Code geschrieben, die kann man doch auch in einer Schleife durchlaufen.
Auch wenn sich eigentlich
XML zum Speichern eines ListViews anbieten würde, es könnte soo gehen:
Delphi-Quellcode:
var
i, j : Integer;
begin
with TIniFile.Create('
c:\Dateiname.ini')
do
try
with ListView1
do
for i := 0
to pred(Items.Count)
do
with Items[i]
do
begin
WriteString('
Rec' + IntToStr(succ(i))
, '
Col1'
, Caption);
for j := 0
to pred(SubItems.Count)
do
WriteString('
Rec' + IntToStr(succ(i))
, '
Col' + IntToStr(j + 2)
, SubItems[j]);
// Das ist IMHO Schwachfug ;)
//writeinteger('index', 'count', SubItems.Count);
end;
finally
Free;
end;
end;