源程序为
while not table1.Eof do
begin
if table1.FieldByName('szg').AsBOOLEAN:= true
then
table2.FieldByName('双职工').AsString:='是';
if table1.FieldByName('szg').ASBOOLEAN:= false
then
table2.FieldByName('双职工').AsString:='否';
end;
编译提示错误为type of the expression must be boolean
table1式dbf中的表,sag字段在当中格式标为L型
while not table1.Eof do
begin
if table1.FieldByName('szg').AsBOOLEAN:= true
then
table2.FieldByName('双职工').AsString:='是';
if table1.FieldByName('szg').ASBOOLEAN:= false
then
table2.FieldByName('双职工').AsString:='否';
end;
编译提示错误为type of the expression must be boolean
table1式dbf中的表,sag字段在当中格式标为L型
解决方案 »
- 关于 Remobjecs在DLL接收消息异常的问题?
- dephi如何复制文件夹到另外一个文件夹里?
- 原创 ···DELPHI 图片图形图像处理 PS置换滤镜效果,亮度/对比度,纹理贴图效果
- 在TMemo控件中输入备注信息为什么在TDBGrid中无法显示
- 如何获取字符串中每一字符对应ASCII码的参数值?
- 在无锡永中做过的朋友请进来~~~~
- 我现在得到一个别的程序的实列句柄,现在我想根据该句柄找到该程序 的文件名和路径,(在线等待!)
- 基本控件的用法,请回答
- 请问各位,我想使用有关增强dbgrid的控件,不知道哪一个好用?
- 快速检索Delphi设计资料的工具软件
- 需要加密的字符多,加完密之后字符少,然后解密后还原到原来的字符串。有这样的加密解密算法吗?
- 求教高人,关于Delphi 收发E-Mail的问题
'szg'字段不是boolean类型,为L型(是不是long型?),所以不能转换为boolean,即AsBOOLEAN失败
if 后面表达式用布而型,pascal中用=
if table1.FieldByName('szg').AsBOOLEAN then //true
if not table1.FieldByName('szg').AsBOOLEAN then //false
这样程序运行会快的多,养成这个好习惯。
如果还不行,就是你的AsBOOLEAN函数不是boolean型,应该不可能。试一下