怎样判断一个变量的类型

Question

for i:=0 to Table1.Fields.Count-1 do
     begin
       curField:=Table1.Fields[i];
      if (CurField.DataType=ftString) or (CurField.DataType=ftDateTime) then
       begin
//
       end
     end;

Answer 1

function VarIsType,用法请参考帮助。

Answer 2

还有VarType函数，可直接得到变量的类型。

Answer 3

具体用法：
function VarType(const V: Variant): TVarType;
下面是TVarType的定义值：
  varEmpty    = $0000;
  varNull     = $0001;
  varSmallint = $0002;
  varInteger  = $0003;
  varSingle   = $0004;
  varDouble   = $0005;
  varCurrency = $0006;
  varDate     = $0007;
  varOleStr   = $0008;
  varDispatch = $0009;
  varError    = $000A;
  varBoolean  = $000B;
  varVariant  = $000C;
  varUnknown  = $000D;
  varShortInt = $0010;
  varByte     = $0011;
  varWord     = $0012;
  varLongWord = $0013;
  varInt64    = $0014;
  varStrArg   = $0048;
  varString   = $0100;
  varAny      = $0101; 
  varTypeMask = $0FFF;
  varArray    = $2000;
  varByRef    = $4000;

Answer 4

function VarType(const V: Variant): Integer;
asm
        MOVZX   EAX,[EAX].TVarData.VType
end;

Answer 5

看看TypInfo.pas吧！
也许能找到答案！
我现大比较忙，有空帮您试试！