Code:
type
TMyClass = [color=#ff0000]record[/color]
strict private
class var
FX: Integer;
strict protected
// Note: accessors for class properties must be declared class static.
class function GetX: Integer; static;
class procedure SetX(val: Integer); static;
public
class property X: Integer read GetX write SetX;
class procedure StatProc(s: String); static;
end;
Und wie wäre es in soeinem Fall garnicht erst eine Klasse zu verwenden?
ein Record hat Erstens keine Instanzen und Zweitens hat er in Delphi auch keinen Constructor.