Wie praktisch, das einem der Kaffee ausgeht und man schnell mal losmuß, neuen zu besorgen. Sind ja tolle Ideen hier aufgeführt, danke schonmal dafür.
TMyObjectList<T:TDriverBase> = class(System.Generics.Collections.TObjectList<T>)
ist eigentlich das, was mir vorschwebt. Dann sorgt doch schon der Compiler dafür, das ich da keinen Integer oder TWorkTime (der nichts mit TDriverBase zu tun hat) versuche einzufügen. Ain't I right ?
Die Datenmengen halten sich da in engen Grenzen, ein paar hundert Items, schlimmstenfalls. Da geht ein linear search allemal, wirds zu dolle, weiche ich dann schon von selbst auf ein binary search aus. Das Risiko ist aber gering. Mir geht es eigentlich darum, das ich immer wieder und wieder dieselben Routinen bastele:
Delphi-Quellcode:
//Suche Fahrer (Basisklasse)
function FindDriverByID(AID: integer): TDriverBase;
begin
for Result in self do
if Result.ID = AID then exit;
Result:=nil;
end;
function FindDriverByName(AName: string): TDriverBase;
begin
...
end;
//Suche Fahrer (SpezialKlasse)
function FindSpecialDriverByID(AID: integer): TSpecialDriver;
begin
for Result in self do
if Result.ID = AID then exit;
Result:=nil;
end;
function FindSpecialDriverByName(AName: string): TSpecialDriver;
begin
...
end;
//Suche Arbeitszeiten
function FindWorkTimeByID(AID: integer): TWorkTime;
begin
//Benutzt natürlich eine andere Collection mit Worktimes drin
for Result in self do
if Result.ID = AID then exit;
Result:=nil;
end;
function FindWorkTimeByDate(ADate: TDateTime): TWorkTime;
begin
for Result in self do
if Result.WorkDate = ADate then exit;
Result:=nil;
end;
//und so weiter und so fort...
Ich suche nun einen Weg, sowas eben nur ein einziges Mal machen zu müssen und ich dachte, Generics sind ein idealer Weg dafür. Während der Fahrt nachgedacht bin ich dann auf folgende - beinahe ideale - Lösung gekommen: Da meine Fahrer alle ein paar Gemeinsamkeitein haben (eine eindeutige ID, Namen etc) und eigentlich nur über diese Felder gesucht wird, stopfen wir das in die TDriverBase-Klasse. Anschließend nehmen wir die oben genannte Deklaration und basteln die Suchroutinen - und schon kann ich prima Listen für meine verschiedenen Fahrertypen erzeugen, in die ich nix "unsinniges" stecken kann und doch ohne duplizierten Code suchen und ggf. noch andere lustige Dinge anstellen:
Delphi-Quellcode:
TMyObjectList<T:TDriverBase> = class(System.Generics.Collections.TObjectList<T>)
public
function FindByID(AID: integer): T;
function FindByName(AName: string): T;
end;
var
TDriverList: TMyObjectList<TDriver>;
TSpecialDriverList: TMyObjectList<TSpecialDriver>;
//15 Bier später...
TWorkTimeList: TMyObjectList<TWorkTime>; //funzt nicht, gibt sofort Haue vom Compiler
Damit bin ich einen gewaltigen Haufen Suchroutinen schon mal los. Genial, danke für den Schubser an euch alle.