case...of für mehrere Variablen?

[Bummi]

Von der entsprechenden Stelle verlagern oder umformulieren geht, viel mehr nicht

Delphi-Quellcode:

Function Comp2(a,b:Integer):Integer;
begin
   case a of
   0:
        begin
           case b of
             6..9:  Result := 1;
             10  :  Result := 2;
           end;
        end;
   1..4:
        begin
           ....
        end;
   5:
        begin
          .....
        end;
   end;
end;

Function Comp1(a,b:Double):Integer;
begin
if (a=0) then
  begin
   if (b>5)and (b<10) then result := 1
   else if (b=10) then Result := 2;

  end
else if (a>0) and (a<5)then
  begin
    if b=0 then Result := 3
    else if b=10 then Result := 4;
  end
else if (a=5) then
  begin
   if b=5 then result := 5
  end
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 a,b:Double; //Integer;
begin
 a := 0;
 b := 6;
     case comp1(a,b) of // oder comp2
        1:Showmessage('1');
        2:Showmessage('2');
        3:Showmessage('3');
        4:Showmessage('4');

     end;
end;