Vereinfachung gesucht

[blackfin]

mhm, oder so vielleicht?

Delphi-Quellcode:

var 
 mode: Integer;
...
..
begin
 mode := 0 ;
 if CheckBox1.Checked then Inc(mode) 
 else if CheckBox2.Checked then mode := mode +2 ;

 if ( (mode = 0) or (mode = 1) ) then SQL.Add('abc') ;
 if ( (mode = 0) or (mode = 2) ) then SQL.Add('def') ;
end;

alternativ auch mit zwei case:

Delphi-Quellcode:

var 
 mode: Integer;
...
..
begin
 mode := 0 ;
 if CheckBox1.Checked then Inc(mode) 
 else if CheckBox2.Checked then mode := mode +2 ;

 case mode of
   0,1: SQL.Add('abc') ; 
 end;

 case mode of
   0,2: SQL.Add('def') ; 
 end;
 
end;