So habe es jetzt geschafft mit den ListviewIndex
Delphi-Quellcode:
if ListView.Items[z].SubItems[1] = 'TV - Kids' then
begin
slCheckFields.Assign(Listview.Items[z].SubItems);
slCheckFields.Insert(0, inttostr(z) + Listview.Items[z].Caption); //<--ListIndex Zuweisung
slCheckLines.Add(slCheckFields.CommaText);
ListView.Items[z].Delete;
end;
Delphi-Quellcode:
for i := Pred(slCheckLines.Count) downto 0 do
begin
CheckFieldList.CommaText := slCheckLines[i];
with ListView.Items.Insert(strtoint(CheckFieldList[0])) do //ListIndex auslesen
begin
Caption := CheckFieldList[0];
CheckFieldList.Delete(0);
SubItems.Assign(CheckFieldList);
end;
end;
klapt alles ganz gut, es gibt aber noch nen kleines Problem, beim Ersten Durchgang wird alles Korrekt angezeigt.
Zitat:
570,2005-11-11,"TV-Kids",...... //570//
Aber beim Zweiten Durchgang klebt er den ListIndex neu an, obwohl ich doch die Stringlisten loesche.
Zitat:
570570,2005-11-11,"TV-Kids",...... //570570//
Was koennte das sein?
MFG Lucius.