Zugriff auf Objekt in TObjectList

**Ykcim**

Hallo Zusammen,

Ich möchte in einer Design-Klasse einige Buttons mit Text versehen. Diesen Text hole ich mir vorher aus der DB.
Ich möchte der Procedure eine TObjectList mitgeben, damit dann alle Buttons der Liste mit dem Caption versehen werden.

Durch googln habe ich folgende Procedure geschrieben:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TDesign.Design_LogIn;

var

   BList: TObjectList;

begin

   BList:= TOBjectList.Create;

   Try

      BList.Add(Form_LogIn.btn_login_abbruch);

      BList.Add(Form_LogIn.btn_login_ok);

      Labeling_GlowButtons(BList);

   Finally

      BList:= nil;

   End;

end;

Die Procedure Labeling_GlowButtons sieht so aus:

markieren

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;

   end;

end;

Jetzt habe ich das Problem, dass ich zwar abfragen kann, ob auch 2 Objekte in der ButtonList sind, aber ich kann nicht darauf zugreifen.
Mach ich bei dem Aufruf (ButtonList.Items[I] as TTMSFNCToolBarButton).Text etwas falsch?

Ich bekomme immer die Nachricht:

Zitat:

Cannot read property 'FName' of null | TypeError: Cannot read property 'FName' of null at Object.Design_LogIn (

http://localhost:8000/NedCom_Web/Ned....js:119472:116) at Create_frmLogIn

Vielen Dank
Patrick

Zugriff auf Objekt in TObjectList

Zugriff auf Objekt in TObjectList

Forumregeln