Alle Bilder in Imagelist löschen

[Neutral General]

Ich möchte alle Bilder aus einer ImageList löschen. Also komplett leeren.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender : TObject);
var i : Integer;
begin
  for i:= 0 to ImageList1.Count do
   ImageList1.Delete(i);
end;

das wäre natürlich das logischste aber das funktioniert nicht die Bilder werden zwar gelöscht aber danach folgt eine Fehlermeldung.
Kann jeder mal ausprobiern.
Zutaten :

• 1 Imagelist mit Bildern drin
• 1 Button mit obigem Code

Ich habs schon mit ImageList1.Count-1 und +1 und von 1 bis ImageList1.Count (+1,-1) usw., aber es funktioniert alles nicht :gruebel:

[Tyrael Y.]

wie wäre es mit

Delphi-Quellcode:

ImageList.Clear;

;)

[Sprint]

Zitat:

Zitat von Neutral General

Ich habs schon mit ImageList1.Count-1 und +1 und von 1 bis ImageList1.Count (+1,-1) usw., aber es funktioniert alles nicht

Du musst beim höchsten Wert anfangen und dich nach unten arbeiten.

Delphi-Quellcode:

  with ImageList1 do
    for I := Count - 1 downto 0 do
      Delete(I);

[Neutral General]

Ich war fester Überzeugung das TImageList kein Clear besitzt... :gruebel: :wall: :wall: