AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Klassen Wegoptimieren abschalten ?

Ein Thema von moelski · begonnen am 30. Nov 2010 · letzter Beitrag vom 1. Dez 2010
Antwort Antwort
Seite 2 von 2     12   
moelski

Registriert seit: 31. Jul 2004
1.110 Beiträge
 
Delphi 2010 Professional
 
#11

AW: Klassen Wegoptimieren abschalten ?

  Alt 1. Dez 2010, 09:24
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 ?
Dominik Schmidt
Greetz Dominik

I love Delphi 2007/2010
  Mit Zitat antworten Zitat
Benutzerbild von Bernhard Geyer
Bernhard Geyer

Registriert seit: 13. Aug 2002
17.201 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: Klassen Wegoptimieren abschalten ?

  Alt 1. Dez 2010, 09:31
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.
Windows Vista - Eine neue Erfahrung in Fehlern.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#13

AW: Klassen Wegoptimieren abschalten ?

  Alt 1. Dez 2010, 10:14
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.
$2B or not $2B
  Mit Zitat antworten Zitat
Benutzerbild von stahli
stahli

Registriert seit: 26. Nov 2003
Ort: Halle/Saale
4.343 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: Klassen Wegoptimieren abschalten ?

  Alt 1. Dez 2010, 13:16
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;
Stahli
http://www.StahliSoft.de
---
"Jetzt muss ich seh´n, dass ich kein Denkfehler mach...!?" Dittsche (2004)
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 2     12   


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz