推荐订阅源

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，为假是不执行。