uses
TypInfo;
procedure TfrmMain.actFormatExecute(Sender: TObject);
var
lvDataType :TTypeKind;
begin
lvDataType := tkUnknown;
ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType)));
uses
TypInfo;
procedure TfrmMain.actFormatExecute(Sender: TObject);
var
lvDataType :TTypeKind;
begin
lvDataType := tkUnknown;
ShowMessage(getenumname(typeinfo(TTypeKind), Ord(lvDataType)));
转载于:https://www.cnblogs.com/DKSoft/archive/2011/05/06/2039058.html