Возможно ли упростить код (SpeedButton.Down на несколько if и одно на всех else)

[KBO]

Доброе время суток форумчане,
Интересует такой вопрос:
Можно ли упростить такой код:

if SpeedButton1.Down then
    SHOW_SYMBOL(Eng, 0)
  else
  begin
    edEngWord.Text := dbedEngWord.Text;
    exit;
  end;
  if SpeedButton2.Down then
    SHOW_SYMBOL(Eng, 1)
  else
  begin
    edEngWord.Text := dbedEngWord.Text;
    exit;
  end;
  if SpeedButton3.Down then
    SHOW_SYMBOL(Eng, 2)
  else
  begin
    edEngWord.Text := dbedEngWord.Text;
    exit;
  end;
  if SpeedButton4.Down then
    SHOW_SYMBOL(Eng, 3)
  else
  begin
    edEngWord.Text := dbedEngWord.Text;
    exit;
  end;

а именно
код:

  begin
    edEngWord.Text := dbedEngWord.Text;
    exit;
  end

сделать в единичном экземпляре. Может как-то через «Case»?

Заранее спасибо.

[type_Oleg]

 for i:=0 to Form1.ControlCount-1 do
  if Form1.Controls[i] is TSpeedButton
    then if TSpeedButton(Form1.Controls[i]).Down
      then SHOW_SYMBOL(Eng,TSpeedButton(Form1.Controls[i]).Tag)
        else
         begin
          edEngWord.Text := dbedEngWord.Text;
          Exit;
         end;

Тэги им надо присвоить 0,1,2,3. Иначе не знаю как эти 1,2,3,4 в SHOW_SYMBOL

[Stilet]

А где этот код помещается?

[Serge_Bliznykov]

проще всего воспользоваться свойством Tag
пропиши нужное число где-то в FormCreate:

SpeedButton1.Tag:=1;
SpeedButton2.Tag:=2;
SpeedButton3.Tag:=3;
SpeedButton4.Tag:=4;

потом задай один обработчик все SpeedButton

begin
  if (Sender as TSpeedButton).Tag>0 then
    SHOW_SYMBOL(Eng, (Sender as TSpeedButton).Tag-1)
  else 
    edEngWord.Text := dbedEngWord.Text;
end;

p.s. пока сочинял ответ, уже меня опередили и про Tag вспомнили!

[KBO]

Сообщение от Stilet

А где этот код помещается?

В обработчике DBEditChange(Sender: TObject);

[min@y™]

А где этот код помещается?

это правильный вопрос!

[KBO]

Сообщение от Serge_Bliznykov

проще всего воспользоваться свойством Tag
пропиши нужное число где-то в FormCreate:

SpeedButton1.Tag:=1;
SpeedButton2.Tag:=2;
SpeedButton3.Tag:=3;
SpeedButton4.Tag:=4;

та я наверное их стационарно забью в ObjectInspector

[KBO]

тут еще такая небольшая ошибка
raised exception class EInvalidCast with message 'Invalid class typecast'
вылазит на строке:

Сообщение от Serge_Bliznykov

if (Sender as TSpeedButton).Tag>0 then

[KBO]

а понял :-) перед этим нужно добавить

  if Sender is TSpeedButton then

и все вместе:

if Sender is TSpeedButton then
begin
  if (Sender as TSpeedButton).Tag>0 then
    SHOW_SYMBOL(Eng, (Sender as TSpeedButton).Tag-1)
  else 
    edEngWord.Text := dbedEngWord.Text;
end;