Klassen Wegoptimieren abschalten ?

[moelski]

Moin !

Zitat:

Leider hast du nirgends erklärt wozu du Strings in Objekte umwandeln möchtest

Wir haben in unserer Anwendung RS232 Geräte eingebunden. Die Geräteklassen sorgen dafür das die Rohdaten der Geräte geprüft / verworfen / umgerechnet / ... werden.

Wenn der User nun sein Gerät auswählt hatte ich folgende Idee:
Ich durchsuche per RTTI alle vorhandenen Klassen. Und die Klassen die entweder einer bestimmten Namenkonvention folgen oder ein spezielles Attribut haben gebe ich dem User zur Auswahl.
Er selektiert dann sein Gerät (und damit die Geräteklasse) und ich nutze eben die Auswahl um meine Klasseninstanz zu erstellen.

Das hätte den Vorteil das man weitere Geräte hinzufügen kann, ohne sich an anderer Stelle Gedanken über die Einbindung zu machen.
Neue Geräte würden automatisch erkannt und dem User angeboten.

Derzeit haben wir ein Konstrukt das eben so ausschaut:
if name = 'test1' then Geraet := TLVTest1.Create.....

Aber wie geschrieben muss man dort bei jedem Gerät dafür sorgen das es eben auch dort eingetragen wird.
Ist sicher kein riesen Aufwand, aber ich wollte eben mal einen neuen Weg testen

[himitsu]

Was passiert, wenn zufällig irgendeine Klasse, welche mit deiner Nutung rein garnichts zu tun hat, zufällig einen passenden Klassennamen oder dieses Attribut besitzt?

Besser wäre es, wenn diese Klasse also z.B. von einem bestimmten Vorfahren abgeleitet ist, damit du direkt über diesen Vorfahren zugreifen kannst (nötige Methoden per virtual+override hinzugefügt).
Somit könnte man auch noch "sicherer" prüfen, ob die Klasse auch über die gewünschten Funktionen verfügt.

Wenn man da nun eh eine Unit (mit der Basisklasse) einbinden muß, dann wäre es ein Leichtes, dort eine Registrierungsstelle anzubieten, wo neue Klassen registriert werden.

Und schon hat man keinerlei Probleme mehr.
- registrierte (benutzte) Klassen werden nicht wegoptimiert
- die überschriebenen Methoden und in der Basisklasse verwendeten Methoden, beiben ebenfalls erhalten
- man hat nun eine wunderschöne und extrem leicht zu durchsuchende Liste alle wichten Klassen
und muß nun auch keine der anderen zigtausend Klassen rausfiltern, welche die RTTI unnötiger Weise mit auflistet.

[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 von moelski:

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 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.