Delphi 6 sollte doch auch schon Klassenfunktionen unterstützen?
Delphi-Quellcode:
type
TUtilityXyz = class // in neueren Delphis "class abstract" oder als Record
class function Max(x, y: Integer): Integer; static; // wenn static noch nicht geht, dann weglassen
class function Min(x, y: Integer): Integer; static; overload;
class function Min(x, y: Double): Double; static; overload;
end;
Mit Static ist es vom Funktionsaufruf her, wie eine ganz billige Function/Prozedur, nur daß man auf diese Weise auch Mehreres in einer
Unit unterbringen und gruppieren kann.
(Klassenname als Namespace, anstatt mehrere Units/Unitnamen)