从.net转到DELPHI,关于枚举变量的作用

Question

我定义了一个枚举类型,
TRK_STATE=
        (TRK_FREE,
        TRK_RELEASE,
        TRK_PLAYFILE,
        TRK_PLAYOVER,
        TRK_CALLOUT,
        TRK_CALLOUTRESPONSE,
    );
_STATE:TRK_STATE;
请问我如何把这个变量转换为相应的字符串,比如:_STATE=TRK_FREE时,我就要得到字符串'TRK_FREE',

Answer 1

uses TypInfo;type
  TRK_STATE =
        (TRK_FREE,
        TRK_RELEASE,
        TRK_PLAYFILE,
        TRK_PLAYOVER,
        TRK_CALLOUT,
        TRK_CALLOUTRESPONSE
    );procedure TForm1.FormCreate(Sender: TObject);
var
  _STATE: TRK_STATE;
begin
  _STATE := TRK_FREE;
  Caption := GetEnumName(TypeInfo(TRK_STATE), Ord(_STATE))
end;