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:

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:

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

[DieDolly]

Zitat:

Mach ich bei dem Aufruf (ButtonList.Items[I] as TTMSFNCToolBarButton).Text etwas falsch?

Ich würde die Liste als erstes generisch deklarieren. Dann brauchst du das alles mit as nicht mehr.
BList: TObjectList<TTMSFNCToolBarButton>; Das sieht dann so aus

Delphi-Quellcode:

for i ...
 ButtonList.Items[I].Text :=

Zitat:

Jetzt habe ich das Problem, dass ich zwar abfragen kann, ob auch 2 Objekte in der ButtonList sind, aber ich kann nicht darauf zugreifen.

Ich frage mich, wie du auf die Liste zugreifen willst, wenn du sie in TDesign.Design_LogIn; sofort freigibst nachdem sie erstellt wurde

Delphi-Quellcode:

   BList:= TOBjectList.Create;
   Try
      ...
   Finally
      BList:= nil;
   End;

Außerdem gibt man nicht mit := nil frei.

[hoika]

Hallo,

ButtonList.Items[I].ClassName
oder
TObject(ButtonList.Items[I]).Name

Was ergibt das?

BList:= nil ersetzen durch BList.Free;
Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.

Ausserdem würde ich mit einer lokalen Variable arbeiten (MyButton oder so),
das macht das Debuggen leichter.

[Dennis07]

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?
Gibt es dafür einen besonderen Grund?

[DieDolly]

Zitat:

BList:= nil ersetzen durch BList.Free;

Zitat:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Ich würde das ganze Konzept noch einmal überarbeiten.

Man schreibt doch nicht Buttons in eine Liste, nur um sie danach wieder freizugeben. Man arbeitet mit der Liste weiter.

[Uwe Raabe]

Zitat von Dennis07:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Zitat von hoika:

Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.

Dann doch lieber gleich TList<T> , oder?

[Dennis07]

Zitat von Uwe Raabe:

Zitat von Dennis07:

Warum benutzt du TObjectList anstelle der generischen TObjectList<T>?

Zitat von hoika:

Aber Vorsicht!!! BList.OwnsObjects:= False vorher nicht vergessen.

Dann doch lieber gleich TList<T> , oder?

Ob du lieber eine TList<TMyObject> oder eine TObjectList<TMyObject> mit OwnsObjects = False verwendest, ist Geschmackssache. Ich mache es lieber immer mit TObjectList<T> , sofern ich mit Klasseninstanzen arbeite. Aber Das ist nur meine Ansicht. Des Ergebnis ist ja das selbe.