Componentes.Terceros.jvcl/official/3.00/examples/RaLib/RaInterpreter/samples/sample - case statement.pas

var
  C: Integer;
begin
  Result := 0;
  C := 2;
  case C of
    1:
      begin
        Result := 1;
      end;
    1 + 1:
      Result := 2;
    else
      Result := 9;
  end;
  Result := Result + 100;
end;