작성 코드는 delphi에서 지원하는 delphi의 record type이며, 문법은 링크와 같습니다.
http://docwiki.embarcadero.com/RADStudio/XE5/en/Structured_Types#Records_.28traditional.29
record 타입이 destructor 가질 수 없는 것 또한 문법상의 제약 입니다.
http://docwiki.embarcadero.com/RADStudio/XE5/en/Structured_Types#Records_.28advanced.29
kivalan 님이 쓰신 글 :
:
: XE5 를 사용하는데요.
: 레코드 형이 아래처럼 된걸 무엇이라고 부르나요?
: TStopWatch 형을 예로 들었습니다.
: Create가 있구요. 즉 레코드 형인데 Create만 가지고 있는 건가요?
: Free는 필요가 없기 때문에 Destroy는 없는 건지요?
:
:
:
: type
: TStopwatch = record
: strict private
: class var FFrequency: Int64;
: class var FIsHighResolution: Boolean;
: class var TickFrequency: Double;
: strict private
: FElapsed: Int64;
: FRunning: Boolean;
: FStartTimeStamp: Int64;
: function GetElapsed: TTimeSpan;
: function GetElapsedDateTimeTicks: Int64;
: function GetElapsedMilliseconds: Int64;
: function GetElapsedTicks: Int64;
: class procedure InitStopwatchType; static;
: public
: class function Create: TStopwatch; static;
: class function GetTimeStamp: Int64; static;
: procedure Reset;
: procedure Start;
: class function StartNew: TStopwatch; static;
: procedure Stop;
: property Elapsed: TTimeSpan read GetElapsed;
: property ElapsedMilliseconds: Int64 read GetElapsedMilliseconds;
: property ElapsedTicks: Int64 read GetElapsedTicks;
: class property Frequency: Int64 read FFrequency;
: class property IsHighResolution: Boolean read FIsHighResolution;
: property IsRunning: Boolean read FRunning;
: end;
: