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;
...全文
1312打赏收藏
在D7中,使用vartype函数错误!在线等待。。。。。。
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;
试试转为整型!
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;