(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
Delphi 11 Alexandria
|
AW: Generic ObjectList und Suchen - Wie am besten ?
6. Aug 2014, 10:46
Haben die Typen eine gemeinsamen Vorfahren? Soll einer davon ausgeschlossen werden? Wenn Ja, kannst du die Anweisungen zusammenfassen:
if T in [ TDriver, TSpecialDriver, TExtraSpecialDriver, ...] then Result := True else Result := False;
Wenn es für alle Nachfahren einer Klasse gelten soll prüfe gegen diese.
Markus Kinzler
|