tbDelete.Enabled:=(Astate=0) and 还有这句:(Copy(FAction,3,1)='0') ;   btnFilter.Enabled:=Astate=0;
  cmbCase.Enabled:=Astate=0;
  cmbProject.Enabled:=Astate=0;
  cmbSA.Enabled:=Astate=0;
  cmbPackage.Enabled:=Astate=0;  bbDone.Enabled:=AState<>0;
  bbCancel.Enabled:=AState<>0;如题,最好举个例子就太感激了.

解决方案 »

  1.   

    意思如下
    procedure TForm1.Button1Click(Sender: TObject);
    var
      b : boolean;
    begin
      b := True and False;      //b为  False
      showmessage(booltostr(b));
      b := True and True;       //b为  True
      showmessage(booltostr(b));
    end;
      

  2.   

    cmbPackage.Enabled:=Astate=0; 翻译为if语句:if AState =0 then cmbPackage.Enabled:=true
    else
      bbCancel.Enabled:=false;
      

  3.   

    tbDelete.Enabled  Astate=0 都是Bool型
      

  4.   

    =、<>、>、<、>=、<= 逻辑运算返回True或False
    := 赋值运算优先基本低于逻辑运算所以
    btnFilter.Enabled:=Astate=0 
    先运算Astate=0得到true或false然后赋给btnFilter.Enabled