非常十分以及极其迷糊中,,,,,,,,,,,,,,,,,,,,,,,
我是菜鸟,刚接触DELPHI,我做了一个小窗体,但一运行时,就会出现错误提示, "发生未知错误 ",然后代码就指向了, if not IsCircular and这行,,这是怎么回事啊?我非常迷糊现在,不知道是哪里出了问题,请大家帮看看啊,
[解决办法]
关机重起，如果还不行，建议重新安装delphi
[解决办法]
if not IsCircular and这行 你是怎样写的？包括前后的代码！
[解决办法]
初学者最容易忘记语句的；号，以至于无法编译。你查一下。最好你把那一段代码贴上来哈。
[解决办法]
不建议重装,既然代码不多,可以贴出来.
[解决办法]
if not IsCircular and
(VarEquals(ListSource.DataSet.FieldByName(KeyFieldName).Value, ALookupKeyValue) or
ListSource.DataSet.Locate(KeyFieldName, ALookupKeyValue, [])) then
FLookupDisplayText := ListSource.DataSet.FieldByName(S).DisplayText
else
FLookupDisplayText := ' ';
end;
================================================
把这句话拆开执行，包括条件里面的东西，用showmessage隔断，看看哪块报错。
[解决办法]
showmessage指的显示一个对话框，这个作用是让程序执行到这里以后停止。
以便减少你代码的出错范围。
[解决办法]
我比你还要菜先顶起来
[解决办法]
up
[解决办法]
if (not IsCircular) and //加括号
(VarEquals(ListSource.DataSet.FieldByName(KeyFieldName).Value, ALookupKeyValue) or
ListSource.DataSet.Locate(KeyFieldName, ALookupKeyValue, [])) then
[解决办法]
if not IsCircular
{and
(VarEquals(ListSource.DataSet.FieldByName(KeyFieldName).Value, ALookupKeyValue) or
ListSource.DataSet.Locate(KeyFieldName, ALookupKeyValue, [])) } then
看看这样行不行,如果行的话就是你另外两个条件有问题了!
[解决办法]
代码看起来费劲，定义几个临时Boolean变量，先赋值再进行布尔运算啊！
