Вопрос по case

[Mike]

Уважаемый,Михаил! Подскажите пожалуйста примерчиком, как можно написать конструкцию примерно такого типа с помощью case:

Сначала проверяем:
Бай или Селл

Если Бай то делаем код по баю, и код по селл полностью игнорируется.

Если Селл то делаем код по селу, и код по бай полностью игнорируется.

В принципе сам собой напрашивается вопрос а зачем мне это, можно и через if ... else написать. Пытался, но не тут то было. Проблема в том, что по отдельности все работает селл или бай, а вместе ну никак не получается. А вот с помощью case по логике должно получится.

Спасибо.

[Terranin]

Код: Выделить всё

  OrderSelect(...);
  
  case OrderType of
    tp_Sell:
      begin
        ...
      end;

    tp_Buy:
      begin
        ...
      end;
  end;