Forum: Algorithmen, Datenstrukturen und Klassendesign
by freimatz,
10. Dez 2019
und warum? Kannst Du debuggen?
Ist "FListe_Button.Items" leer oder hat es den falschen Typ oder ist das Objekt schon wieder weg.
Mache davor ein "if Assigned(FListe_Button.Items). Wenn ok lass dir "FListe_Button.Items.Classname"anzeigen.
Ja. Danke für Deinen Hinweis. Ich dachte dann ein Beispiel wäre für nicht schlecht.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by freimatz,
10. Dez 2019
Also z.B. so: (ungetested)
procedure TDesign.Labeling_GlowButtons(ButtonList: TObjectList);
var
I: integer;
button: TTMSFNCToolBarButton;
bezeichnung : String;
begin
for I := 0 to ButtonList.Count -1 do begin
button := ButtonList.Items as TTMSFNCToolBarButton;
bezeichnung := Data_Module.xDST_Sprache.FieldByName(button.Name).AsString