uses TypInfo;
procedure TfrmMain.actFormatExecute(Sender: TObject); var lvDataType :TTypeKind; begin lvDataType := tkUnknown;
ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType)));