获取枚举类型的字符串

uses
TypInfo;

procedure TfrmMain.actFormatExecute(Sender: TObject);
var
  lvDataType :TTypeKind;
begin
  lvDataType := tkUnknown;

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