Delphi随笔

一、判断语句

当出现多个判断条件时，如果是and，前面出现false的情况时，后面的条件不会进行判断，如果是or，前面出现true的情况时，后面的条件不会进行判断

procedure TForm1.FormCreate(Sender: TObject);
var
  function Check1: Boolean;
  begin
    ShowMessage('1');
    result := False;
  end;
  function Check2: Boolean;
  begin
    ShowMessage('2');
    Result := True;
  end;
begin
  if Check1 and Check2 then
    ShowMessage('3');
  // 分别弹出 1 3
  if Check1 or Check2 then
    ShowMessage('4');
  // 1 2 3 
  if Check2 and Check1 then
    ShowMessage('5');
  // 2 1 5
  if Check2 or Check1 then
    ShowMessage('6');
  // 2 6
end;