Thema: Delphi Vereinfachung gesucht

Einzelnen Beitrag anzeigen

blackfin
(Gast)

n/a Beiträge
 
#3

AW: Vereinfachung gesucht

  Alt 2. Sep 2010, 11:26
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;

Geändert von blackfin ( 2. Sep 2010 um 11:33 Uhr)
  Mit Zitat antworten Zitat