Hallöchen,
mich macht eine einfache Schleife ziemlich fertig.
Code:
procedure TForm1.Button3Click(Sender: TObject);
//Markierten Eintrag löschen
var
i: integer;
begin
ListView1.DeleteSelected;
for i := 0 to ListView1.Items.Count -1 do
begin
ListView1.Items.Add;
ListView1.Items.Item[i].Caption := IntToStr(i);
end;
end;
So, damit nummeriere ich die Einträge neu. Der erste Eintrag erhält die 0 und der letzte die höchste Nummer. Sollte aber anders rum sein. Also der erste Eintrag die höchste und der letzte die 0.
Wenn ich for i := ListView1.Items.Count -1 to 0 do schreibe, funktioniert das ganze nicht. Es wird nichts neu durchnummeriert.
Was mach ich den falsch? Vielen Dank.
Grüsse, Daniel
