获取枚举类型的字符串

uses

TypInfo;

procedure TfrmMain.actFormatExecute(Sender: TObject);

var

  lvDataType :TTypeKind;

begin

  lvDataType := tkUnknown;

  ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType)));