procedure TForm2.Button1Click(Sender: TObject); function test(value:boolean):boolean; begin result:=value end;begin if (1=2) and test(false) then showmessage('ok');end;
前置逻辑为真是会执行test,为假是不执行。