Einzelnen Beitrag anzeigen

Ykcim

Registriert seit: 29. Dez 2006
Ort: NRW
824 Beiträge
 
Delphi 10.4 Sydney
 
#15

AW: Zugriff auf Objekt in TObjectList

  Alt 9. Dez 2019, 23:24
Okay, vielleicht habe ich einen Denkfehler:

Delphi-Quellcode:
procedure TDesign.Design_LogIn;
var
   BList: TObjectList;
begin
   BList:= TOBjectList.Create; //Ich erstelle die Liste
   Try
      BList.Add(Form_LogIn.btn_login_abbruch); //Packe die Buttons rein
      BList.Add(Form_LogIn.btn_login_ok);
      Labeling_GlowButtons(BList); //Hier verarbeite ich jeden einzelnen Button. Wenn diese Procedure fertig ist, sollen alle Buttons so aussehen, wie definiert und ich brauche die Liste nicht mehr, oder?
   Finally
      BList.OwnsObjects:= false;
      BList.Free; //Ich gebe die Liste wieder frei...
   End;
end;
Und das wäre die Procedure Labeling_GlowButtons:
Delphi-Quellcode:
procedure TDesign.Labeling_GlowButtons(ButtonList: TObjectList);
var
   I: integer;
begin
   for I := 0 to ButtonList.Count -1 do begin
      (ButtonList.Items[I] as TTMSFNCToolBarButton).Text:= Data_Module.xDST_Sprache.FieldByName((ButtonList.Items[I] as TTMSFNCToolBarButton).Name).AsString; //Aber hier klappt der Zugriff nicht...
   end;
end;
Ich dachte, damit gebe ich die Liste erst wieder frei, wenn ich sie nicht mehr brauche...

Gruß
Patrick
Patrick

Geändert von Ykcim ( 9. Dez 2019 um 23:29 Uhr)
  Mit Zitat antworten Zitat