在D7中，使用vartype函数错误！在线等待。。。。。。

Question

case VarType(vari) of        //出错：undeclared identifier:'vartype'
    2: begin
        setlength(tmp,2);
        bytenum:=4;
       end;
     3: begin
         setlength(tmp,3);
         bytenum:=6;
        end
     else
        begin
         result:=0;
         exit;
        end;
     end;

Answer 1

试试转为整型!
case integer(vari) of        //出错：undeclared identifier:'vartype'
    2: begin
        setlength(tmp,2);
        bytenum:=4;
       end;
     3: begin
         setlength(tmp,3);
         bytenum:=6;
        end
     else
        begin
         result:=0;
         exit;
        end;
     end;