16,748
社区成员
发帖
与我相关
我的任务
分享a = (a + 1)
看到一个写法
var
a: Integer;
begin
a := 0;
if a = (a + 1) then
begin
{ do XXXXX}
end;
end;
求大神指点，什么情况下，怎么个用法，才会条件成立！
var
a: Integer;
begin
a := 0;
if a = (a + 1) then
begin
{ do XXXXX}
end;
end;
求大神指点，什么情况下，怎么个用法，才会条件成立！
...全文
请发表友善的回复…
发表回复
wzn0521 2016-01-29
- 打赏
- 举报
看不出来这么写的目的，逻辑上不会运行。
但偶尔不定什么问题，可能导致了执行。以前也遇到过类似情况，怎么也找不到原因，但是执行了。后来delphi卸载了重装，就不再执行了。
lyhoo163 2016-01-25
- 打赏
- 举报
这条件永不成立if a = (a + 1) then，下面的代码不再执行。
这好也许是雷人，注释语句，或是测试时修改一下，再运行的代码。
jjpweb 2016-01-25
- 打赏
- 举报
永远不执行呗
if false then showmessage('ok');
具体什么目的不清楚
天下v大乱 2016-01-25
- 打赏
- 举报
感觉应该有一定的用处。
看似和CPU有关。
天下v大乱 2016-01-25
- 打赏
- 举报
class procedure RemoveWarnings; inline; static;
class procedure TAnyValue.RemoveWarnings;
var
Dummy: Integer;
Value: TAnyValue;
begin
Dummy := 0;
if Dummy = (Dummy + 1) then
begin
{$IFNDEF CPUX64}
{$IFNDEF AnyValue_HookingOff}
Value.Padding[0] := 0;
{$ENDIF}
{$ENDIF}
Value := Value.GetAsArrayItem('');
Value.SetAsArrayItem('', TAnyValue.Null);
end;
end;
我觉得可能是没用的，这个是原本的代码。
不得闲 2016-01-25
- 打赏
- 举报
应该是测试语句。鉴定完毕
