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