クラス名から直接呼び出せる関数

宣言

class function Count: Integer; static;

実装

class function TTimeStep.Count: Integer;
var
tmpInfo :PTypeInfo;
tmpData :PTypeData;
begin
tmpInfo :=TypeInfo(TTimeStepEnum);
tmpData :=GetTypeData(tmpInfo);
Result := tmpData.MaxValue – tmpData.MinValue + 1;
end;