Hallo Freunde,
heute mal was für Generic-Anfänger, wie ich es bin. Bisher hab ich die Dinger immer nur benutzt - das soll sich nun ändern.
Ich habe immer wieder das Problem, das ich Objekte en masse in ObjectLists speichern und immer wieder das eine oder andere Objekt in dieser Liste suchen muß. Generics waren eine - wenn auch sehr codeaufblähende - prima Lösung. Nur das Gesuche ist noch immer "doof".
Ich habe nun vor, mich dem Problem schrittweise zu nähern. Meine erste Idee:
Delphi-Quellcode:
type
TMyObjectList<T> = class(TObjectList<T>);
Das funktioniert offenbar, weil es ohne Error compiliert
Okay.
Delphi-Quellcode:
type
TMyObjectList<T> = class(TObjectList<T>);
public
function Search(ASearchCrit: integer): T;
end;
[...]
function TMyObjectList<T>.Search(ASearchCrit: integer): T;
begin
for Result in Self do
begin
if Result. //<--- Äh... Das funktioniert nicht. Gar nicht
end;
end;
Wie man sieht, ist mein Ansatz eine direkte Fahrt gegen die Wand. Zwei Fragen:
1. Wie löst man sowas ?
2. Da in TMyObjectList
irgendwas gestopft werden kann - bin ich gezwungen, alle möglichen Typen zuerst abzutesten oder gibt es da auch eine clever Lösung ?
Delphi-Quellcode:
Result:=true;
if T is TDriver then exit;
if T is TSpecialDriver then exit;
if T is TExtraSpecialDriver then exit;
Result:=false;
Thanks für die Schubser,
Olaf