Delphi-Quellcode:
type
QChar = class
protected
function getOrigin: uint64;
public
constructor Create; overload;
... // alles was nicht mit T zu tun hat
end;
QChar<T> = class(QChar)
... // alles was mit T zu tun hat
end;
das sieht sehr gut aus !
Übrigens: das Free innerhalb des Create ist etwas irritierend.
das Free ist von mir dazu gedacht, den Speicher freizugeben, wenn bei der Überprüfung der Pointer nil ergibt.
Man könnte das auch auslagern. Aber ich dachte mir, da der Code in einer
DLL liegt, das auslösen einer
Exception nicht so dolle erscheinen mag.
das ganze kann auch
hier eingesehen werden.