Problem mit Dynamischem Menü

[Satyr]

Huhu,

ich habe ein Problem, das einfach klingt, mich aber vor Rätsel stellt.
Ich erstelle PopUp Menü und einer der Einträge hat ein Untermenü, das ich dynamisch generiere, wenn es aufgerufen wird. Soweit kein Problem, das mache ich mit folgendem Code:

Delphi-Quellcode:

      fuunc.ASQLite3Query1.Active := false;
      fuunc.ASQLite3Query1.SQL.Clear;
      fuunc.ASQLite3Query1.SQL.Add('SELECT * FROM kontinente;');
      fuunc.ASQLite3Query1.Active := true;
  
      while not fuunc.ASQLite3Query1.Eof do begin
       SubItem := TMenuItem.Create(Self);
       SubItem.Caption := fuunc.ASQLite3Query1.FieldByName('name').AsString;
       BookArena1.Add(SubItem);
       fuunc.ASQLite3Query1.Next;
      end;

Geht sicher auch Eleganter aber es funktioniert.

Problem ist jetzt, das dieses SubMenü mehrfach aufgerufen werden kann und bei jedem Aufruf diese Punkte im Untermenü generiert. Also würde ich vorher gern erst alle (alten) Punkte löschen. Und da taucht mein Problem auf. Gelöscht bekomme ich jeh einen Eintrag, indem ich ihn genau anspreche. Durch ein "Count" weiß ich auch wieviele Einträge ich habe. Aber genau dieser Wert ändert sich ja, wenn ich einen Eintrag lösche. Ich kann ihn also nicht in einer einfachen for Schleife verwenden.
Als Abhilfe habe ich folgendes versucht:

Delphi-Quellcode:

while BookArena1.Count > 0 do begin
 BookArena1.Delete(BookArena1.Count);
end;

Ich dachte damit wird immer der letzte Menüeintrag gelöscht, bis keine mehr da sind.

Aber bei Ausführung des Codes, bekomme ich eine Zugriffsverletzung und Delphi stürzt komplett ab.

Was mache ich falsch? Wie macht man es richtig?

Gruß,
Andreas

[DeddyH]

Zitat:

BookArena1.Delete(BookArena1.Count);

Da fehlt ein -1. Übrigens müsste es auch mit einer For-Schleife gehen, wenn man die rückwärts laufen lässt.

Delphi-Quellcode:

for i := BookArena1.Count - 1 downto 0 do
  BookArena1.Delete(i);

[ChrisE]

Um alle zu löschen:

Delphi-Quellcode:

BookArena1.Clear;
// jetzt alles hinzufügen...

Den Rest kann man vergessen wegen der roten Box

Um geziehlt zu löschen ist Delete richtig aber Count gibt die Anzahl an, d.h. der höchste ansprechbare Eintrag in der Liste ist immer Count -1

Dein Code damit:

Delphi-Quellcode:

while BookArena1.Count > 0 do begin
 BookArena1.Delete(BookArena1.Count-1);
end;

Oder auch per Schleife:

Delphi-Quellcode:

for i:= BookArena1.Count -1 downto 0 do
begin
  BookArena1.Delete(i);
end;

Gruß, Chris

[Satyr]

Danke, das "-1" wars. Manchmal habe ich echt einen Knoten im Hirn. Clear hat den Nachteil, das damit alle propertys vom Objekt gelöscht werden und ich dann nicht mehr darauf zugreifen kann.

Aber jetzt habe ich leider ein neues Problem. Nach dem löschen versuche ich die dynamische Generierung des Untermenüs. Hier noch mal der Code:

Delphi-Quellcode:

     
      fuunc.ASQLite3Query1.Active := false;
      fuunc.ASQLite3Query1.SQL.Clear;
      fuunc.ASQLite3Query1.SQL.Add('SELECT * FROM kontinente;');
      fuunc.ASQLite3Query1.Active := true;

      while not fuunc.ASQLite3Query1.Eof do begin
       SubItem := TMenuItem.Create(Self);
       SubItem.Caption := fuunc.ASQLite3Query1.FieldByName('name').AsString;
       BookArena1.Add(SubItem);
       fuunc.ASQLite3Query1.Next;
      end;

Aber da scheint irgendwo ne Endlosschleife zu sein. Der Curser wird zum Stundenglas mit dem Schriftzug "SQL" darunter und flackert ein wenig. Das wars aber. Da wird nichts fertig und der Cursor bleibt so.

Das ganze rufe ich übrigens in folgender procedure auf:
procedure Tpl.BookArena1Click(Sender: TObject); "BookArena1" ist ein Menüsegment in einem TPopUpMenu.

Was übersehe ich jetzt?

Gruß,
Andreas

[ChrisE]

Zitat von Satyr:

...Clear hat den Nachteil, das damit alle propertys vom Objekt gelöscht werden und ich dann nicht mehr darauf zugreifen kann...

Das glaube ich so nicht ganz. In dem ganz konkreten Fall eines TMenuItems räumt Clear nur die SubItems auf.

Gruß, Chris

[jaenicke]

Wozu denn die TMenuItems immer neu erstellen? Es reicht doch eine TObjectList<TMenuItem> mit den aktuellen Menüeinträgen, aus der ggf. überzählige Einträge gelöscht oder neue hinzugefügt werden um die neu gebrauchte Anzahl zu erreichen. Danach hat man dann die korrekte Anzahl und braucht nur die Überschriften neu zu setzen.

[ChrisE]

Zitat von jaenicke:

Wozu denn die TMenuItems immer neu erstellen? Es reicht doch eine TObjectList<TMenuItem> mit den aktuellen Menüeinträgen, aus der ggf. überzählige Einträge gelöscht oder neue hinzugefügt werden um die neu gebrauchte Anzahl zu erreichen. Danach hat man dann die korrekte Anzahl und braucht nur die Überschriften neu zu setzen.

Ich glaube das wäre doppelt gemoppelt, da jedes TMenuItem seine SubItems selber verwaltet (Free etc.). Aber man könnte den Ansatz trotzdem verwenden mit eben genau dieser TMenuItem eigenen Items-Liste. Brauche ich mehr erzeuge ich welche, habe ich weniger vergerge/lösche ich diese. Danach wird jedes Item angepasst (Caption/OnClick/Tag etc.)

Gruß, Chris

[Satyr]

Danke für Eure Vorschläge, ich probier mal in der Richtung rum .