设置断点无效

[xjqxpj008]

自定义一个进程.
Procedure Tform1.DataToSQL(var Rbuffer:Array of BYTE;var M_ID:Cardinal;SaVetag:BYTE);
var
PhaC,AIS_M:String; (SaVetag进程定义)
begin
SaVetag:='11'
PhaC:='9999.999';
AIS_M:='1000000000';
SaVetag:=SaVetag or $01; //表示不完整
end

end之前4条语句,前3条都可以设置断点,最后一条无法设置断点,编译就 变绿色.
不知道是什么原因,在线等..

[Corn1]

因为这一行没有被编译到，也就是说这一行没用。这个SaVetag是传入参数，改了有什么用？

[hongqi162]

优化掉了

[xjqxpj008]

修改SaVetag作为一个标志,进程结束后 给下一步使用。

[starluck]

编译没编译优化掉了吧，看前面有没有一个小点号。没有的话肯定编译器跳过去了，可能你根本不用这个变量。

[Bear_hx]

Delphi对于在过程中不再使用的变量会自动优化掉，你可以在后面再使用一下，就可以设置断点了。

[xjqxpj008]

终于发现问题了
Procedure Tform1.DataToSQL(var Rbuffer:Array of BYTE;var M_ID:Cardinal;SaVetag:BYTE);
改成
Procedure Tform1.DataToSQL(var Rbuffer:Array of BYTE;var M_ID:Cardinal;var SaVetag:BYTE);
便可设置断点了
再麻烦一下,进程中 SaVetag:BYTE和var SaVetag:BYTE 区别有哪些？

[coffeemay]

SaVetag:BYTE和var SaVetag:BYTE 区别有哪些？

复制和引用的区别