在D7中,使用vartype函数错误!在线等待。。。。。。

skile 2003-09-11 11:04:41
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;
...全文
131 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
hongqi162 2003-09-11
  • 打赏
  • 举报
回复
uses

.....Variants
0754boy 2003-09-11
  • 打赏
  • 举报
回复
试试转为整型!
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;

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧