Klassen wiederfinden

[Alexander Roth]

Hi,

also, wenn man eine Komponente hat. z.B. ein Label dann kann man das mit

Delphi-Quellcode:

  with TLabel.Create(form1) do
  begin
    parent:=form1;
    name:='L1';
  end;

createn.

So das kann man dann hübsch mit FindComponent und dem name wiederfinden und ansprechen.

Wie bekommt man das ganz analog zu den Komonenten mit eigenen Klassen hin?
Denn

Delphi-Quellcode:

  Ta=class
    s:integer;
  end;

hat kein name.

Wie kann man das wiederfinden? Oder muss man das an Varablen ketten?

[DGL-luke]

Die VCL hat das auch an Variablen gekettet. Die Komponenten sind nämlich alle in Form1.Controls drin.

Eine Klasse ist ein Speicherbereich, und dieser Speicherbereich ist durch den Klassenzeiger (Anfang des Speicherbereichs) und die Klassendeklaration (Größe der Klasse und Adresse der Felder) hinreichend beschrieben.

Du kannst natürlich jetzt sowas machen:

Delphi-Quellcode:

for i := 0 to Ende_des_adressbereiches do
  if TObject(i) is TMyClass then
    if TMyClass(i).name = 'gesuchter_name' then
      showmessage('gefunden');

Aber wir sollten uns ja wohl einig sein, dass das Quatsch ist.

[shmia]

Üblicherweise speichert man die Objekte in Variablen.
Bei einer grösseren Menge von Objekten verwendet man TObjectList.
Man kann im Constructor festlegen, ob alle Objekte in der ObjectList am Ende automatisch gefree'd werden sollen.
Möchte man den Objekten einen Namen geben und diese in der Liste damit später wiederfinden,
dann macht man sich eine Ableitung von TObjectList.

[Alexander Roth]

@shmia: Riesen Dank. Wusste garnicht gas es so was gibt. Schaue ich mir sofort an.

edit: @shmia: Genau so was habe ich gesucht. Riesen Dank.


Tschüss