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;