checkunit.pas

来自「公交行业的管理系统」· PAS 代码 · 共 81 行

unit CheckUnit;

interface
type
  TRelation=class
  public
    T1,T2,T3,C1,C2:boolean;
    Checked1,Checked2,Checked3:boolean;
    constructor Create;
    procedure ButtonCheck1(status:boolean);
    procedure ButtonCheck2(status:boolean);
    procedure ButtonCheck3(status:boolean);
  end;
implementation
  constructor TRelation.Create;
  begin
      T1:=false;
      T2:=false;
      T3:=false;
      C1:=false;
      C2:=false;
      Checked1:=false;
      Checked2:=false;
      Checked3:=false;
  end;
  procedure TRelation.ButtonCheck1(status:boolean);
  begin
        Checked1:=status;
        if(Checked1=true)then
        begin
                T1:=true;
                if(T2)then
                C1:=true else
                if(T3)then
                C2:=true;
        end else
        begin
               T1:=false;
               if(T2)then
               C1:=false
               else
               if(T3)then
               C2:=false;
        end;
  end;
  procedure TRelation.ButtonCheck2(status:boolean);
  begin
      Checked2:=status;
      if(Checked2)then
      begin 
          T2:=true;
          if(T1)then
          C1:=true;
          if(T3)then
          C2:=true;
      end else
      begin
          T2:=false;
          C1:=false;
          if(not T1)then
          C2:=false;
      end;
  end;
  procedure TRelation.ButtonCheck3(status:boolean);
  begin
      Checked3:=status;
      if(Checked3)then
      begin
          T3:=true;
          if(T1 or T2)then
          begin
               C2:=true;
          end;
      end else
      begin
          T3:=false;
          C2:=false;
      end;
  end;
end.