PopUp Menu - Fehler beim löschen von Einträgen

[citybreaker]

Hallo,
ich Versuche mit folgenden Zeilen die Items eines TPopUpMenu's zu löschen.
Alerdings kommt es immer zu einem Fehler.

Code

Delphi-Quellcode:

var i: integer;
begin
  for i := 0 to PopUpMenu1.Items.Count-1 do
    PopUpMenu1.Items.Delete(i);
end;

Fehler

Zitat:

Menüindex auserhalb des zulässigen Bereichs

Am schluß sind dann noch 2 von 4 Items vorhanden. (die letzten 2)

[Sprint]

Zitat von citybreaker:

Delphi-Quellcode:

var i: integer;
begin
  for i := 0 to PopUpMenu1.Items.Count-1 do
    PopUpMenu1.Items.Delete(i);
end;

Delphi-Quellcode:

var i: integer;
begin
  for i := PopUpMenu1.Items.Count-1 downto 0 do
    PopUpMenu1.Items.Delete(i);
end;

[LoL]

das liegt daran das er sobald du ein item löscht er "count" nicht aktualisiert und dann dann natürlich ausßerhalb der zulässigen bereiches bist.

Delphi-Quellcode:

While PopUpMenu1.Items.Count > 0 do
  PopUpMenu1.Items.Delete(0);

Edit: Weis aber nicht ob das funzt

[Dax]

Oder so?

Menu.Items.Clear;

[himitsu]

@citybreaker
Sprint's Code ist die richtige Lösung, für deine Vorgehensweise.

Lol's geht natürlich auch.

Und Dax ... das ist natürlich Ideal


So, und nun zum Grund, denn du ja eigentlich wissen solltest ... nach deinem Beitragszähler solltest du schließlich ein Profi, oder wenn man das hier siht doch eher ein volltr*** sein. (Tut mir Leid, aber das mußte sein)

Wenn du von vorne anfängst zu löschen, dann werden es ja immer weniger Einträge, in der Liste, weßhalb du nach der Hälfe der Einträge den Fehler bekommst.

50% gelöscht, also dein Code hat danach einen Index, welcher höher, als der Index des letzten Eintrages ist...


Deßhalb muß entweder von hinten gelöscht werden, also immer beim höchsten Index beginnen.

Oder du nimmst immer nur den Index 0 - dieses geht aber nur, wenn man alles löscht. Also nicht, wenn nur Teile gelöscht werden sollen.

Und das Items.Clear vom Dax ... naja, was macht das wohl ^^