擷取枚舉類型的字元串

uses

TypInfo;

procedure TfrmMain.actFormatExecute(Sender: TObject);

var

  lvDataType :TTypeKind;

begin

  lvDataType := tkUnknown;

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