In FreePascal gaebe es ja glaube ich TBananenKorb = specialize TObstKorb<TBanane>;
. Wie deklariere ich denn die Spezialisierung in Delphi ohne sie abzuleiten?
Keine Ahnung was das
specialize in FP sein soll.
Specialize ist die "pascalishe" Syntax für Generics, die sich die FPC devs ausgedacht haben - einfach mal in die Doku schauen:
http://wiki.freepascal.org/Generics
Hat aber kaum mit dem Problem hier zu tun, dass abhängig von einem Typen von T eine abstrakte Methode plötzlich was ausführen könnte. Polymorphie hat in dem Zusammenhang nix mit Generics zu tun.
Generics sind prinzipiell dafür da, ebend unabhängig vom Typen einen Algorithmus auszuführen und nicht kontextuell etwas anderes (wenn T Banane ist, das, wenn es es Apfel ist, etwas anderes).
Allerdings kann man sofern man eh schon einen constaint (
TProgrammModel<T: TFrucht>
) hat mit einfachen Mitteln prüfen:
Delphi-Quellcode:
constructor TProgrammModel<T>.Create;
begin
if TypeInfo(T) = TypeInfo(TBanane) then
fKorb := TKorb<T>(TBananenKorb.Create)
else if TypeInfo(T) = TypeInfo(TApfel) then
fKorb := TKorb<T>(TApfelKorb.Create);
end;