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)));