Klassen Wegoptimieren abschalten ?

[moelski]

Moin !

Eine Basisklasse habe ich.

type TInputDevice = class
...
end;

Und alle Geräteklassen sind davon abgeleitet:
type TLVUDP50 = class(TInputDevice)
...
end;

Zitat:

dort eine Registrierungsstelle anzubieten

Das würde ich wie machen ?

[Bernhard Geyer]

Zitat:

Zitat von moelski (Beitrag 1065301)

Zitat:

dort eine Registrierungsstelle anzubieten

Das würde ich wie machen ?

Definiere ein Register-Funktion denen du die Klasse übergibst:

Delphi-Quellcode:

type
  TInputDeviceClass = class of TInputDevice;

var
  ReisteredDevices: TObjectList;

procedure Register Device(DeviceClass: TInputDeviceClass)
begin
  ReisteredDevices.Add(DeviceClass);
end;

Mit neuen Delphi-Versionen könntest du natürlich mit Generics bei RegisteredDevices arbeiten um das ganze gecaste zu ersparen.

[himitsu]

Bei

Delphi-Quellcode:

Register Device

ist bestimmt ausversehn ein Leerzeichen reingerutscht.

Und dann einfach nur noch die Klassen da registrieren, wo sie erstellt wurden.

Delphi-Quellcode:

type
  TMyInputDevice = class(TInputDevice)

  end;

  ...

initialization
  RegisterDevice(TMyInputDevice);

end.

[stahli]

Ich weiß jetzt nicht, ob es noch evtl. Erkenntnisgewinn bringt, aber ich erzeuge Komponenten nach Klassennamen in D2009 so:

Delphi-Quellcode:

type

  Tod = class(TComponent)
    ...
  end;

  TodXxx = class(Tod)
    ...
  end;

  TodYyy = class(Tod)
    ...
  end;

  TodClass = class of Tod; // !!!

Irgendwo müssen die zu verwendenden Klassen registriert werden (z.B. im initialization-Teil einer Unit - dann muss die Unit in das Projekt eingebunden werden):

Delphi-Quellcode:

  RegisterClasses([TodXxx]);
  RegisterClasses([TodYyy]);

Erzeugen des Objektes dann über:

Delphi-Quellcode:

  if (not Assigned(od)) and (ItemsClassName <> '') then
  begin
    FindClass(ItemsClassName);
    od := TodClass(GetClass(ItemsClassName)).Create(Self);
  end;