如何获得一变量类型，值！DELPHI提供这种函数了吗？？

Question

// 获取类型
function VarType(const V: Variant): TVarType;VarType Contents of variantvarEmpty The variant is Unassigned.
varNull The variant is Null.
varSmallint 16-bit signed integer (type Smallint).
varInteger 32-bit signed integer (type Integer).
varSingle Single-precision floating-point value (type Single).
varDouble Double-precision floating-point value (type Double).
varCurrency Currency floating-point value (type Currency).
varDate Date and time value (type TDateTime).
varOleStr Reference to a dynamically allocated UNICODE string.varDispatch Reference to an Automation object (an IDispatch interface pointer).
varError Operating system error code.
varBoolean 16-bit boolean (type WordBool).
varVariant A variant.
varUnknown Reference to an unknown OLE object (an IInterface or IUnknown interface pointer).
varShortInt 8-bit signed integer (type ShortInt)
varByte A Byte
varWord unsigned 16-bit value (Word)
varLongWord unsigned 32-bit value (LongWord)
varInt64 64-bit signed integer (Int64)varStrArg COM-compatible string.
varString Reference to a dynamically allocated string (not COM compatible).
varAny A CORBA Any value.

Answer 1

我想把获得的类型名称，该变量值转换成字符串在MESSAGEBOX中显示出来！另：若我传入的是个类，那如何得到类名？

Answer 2

TypeInfo(TypeIdent): Pointer; 可以
TObject.ClassName: ShortString; 可以

Answer 3

如果是类（应该是对象吧），有ClassName属性，只要是从TObject继承来的。Delphi中所有的类都是TObject类的派生类
Edit1.Text := MyObj.ClassName;

Answer 4

dancemaple还要麻烦你，我要在一函数中根据传入的参数（可以是变量，也可以是对象）。在该函数中我要得到该参数的类型名称，并要在MESSAGEBOX中显示出来！
问题：
1、传入参数类型应是什么？（variant行吗？）
2、调用vartype返回的是TVARTYPE类型，如何将返回值转换成字符串在MESSAGEBOX中显示？我学习DELPHI时间不常，问的很蠢的地方不要见笑！谢谢！
另：可否留下QQ,MAIL之类联系方式，便于交流！