Case Не работает с Sender

[dimkoss]

На кнопке события операции калькулятора такой код:

case (Sender as TButton).Caption of
  '+' : op := '+';
  '-' : op := '-';
  '*' : op := '*';
  '/' : op := '/';
  end;

Выдает ошибку типа.
Подскажите, чем его можно заменить?

[northener]

if..then else
или переходить на Лазарус

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

if..then else
или переходить на Лазарус

Проблема не в Sehder, а в Caption. Не работает в Дельфи case со строками

[Iron Monk]

Чем tag не угодил?

[Аватар]

case (Sender as TButton).Caption[1] of

Но это если уверен 100%, что в Caption есть как минимум 1 символ. А вообще лучше не надо, tag не зря предлагают

[Вадим Мошев]

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

На кнопке события операции калькулятора такой код:

case (Sender as TButton).Caption of
  '+' : op := '+';
  '-' : op := '-';
  '*' : op := '*';
  '/' : op := '/';
  end;

Выдает ошибку типа.
Подскажите, чем его можно заменить?

Этот код можно записать короче:

if (sender is TButton) then begin
	op:=(Sender as TButton).Caption[1];
end;

(хотя, если это написано в обработчике нажатия кнопки, то проверку if (sender is TButton) делать ИМХО не надо)

Или ещё короче:

op:=(Sender as TButton).Caption[1];

Только надо добиться того, чтобы Caption содержало ровно один символ, и он был знАком одной из рассматриваемых арифметических операций.

Конечно, как написать этот участок кода, зависит от того, как написана программа.

Если критично содержание caption, то можно поставить такую проверку

st:=(Sender as TButton).Caption[1]; // Надеюсь, что у нас не будет кнопок без caption (пустым caption)
if pos(st, '+-*/') > 0 then begin // это удобнее записывать, чем множество
	op:=st;
end else begin
	// значит, нажали что-то другое
end;

[Sibedir]

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

На кнопке события операции калькулятора такой код:

case (Sender as TButton).Caption of
  '+' : op := '+';
  '-' : op := '-';
  '*' : op := '*';
  '/' : op := '/';
  end;

Я согласен с выше сказанным. Просто хотел заметить:
Кнопки калькулятора выполняют вообще-то разные операции, потому должны иметь разные обработчики. Было бы смешно, если бы кнопки диалогового окна имели один обработчик типа:

if (Sender as TButton).Caption = 'Yes' then RES := mrYes
else
  if (Sender as TButton).Caption = 'No' then RES := mrNo;

dimkoss, почему не

procedure TForm1.btnAdditionClick(Sender: TObject);
begin
  op := '+';
end;

procedure TForm1.btnSubtractionClick(Sender: TObject);
begin
  op := '-';
end;

procedure TForm1.btnMultiplicationClick(Sender: TObject);
begin
  op := '*';
end;

procedure TForm1.btnDivisionClick(Sender: TObject);
begin
  op := '/';
end;

?

[come-on]

(хотя, если это написано в обработчике нажатия кнопки, то проверку if (sender is TButton) делать ИМХО не надо)

Или ещё короче:
Код:

op:=(Sender as TButton).Caption[1];

тогда и as не надо, лишнее, просто приведение делать

[northener]

тогда и as не надо, лишнее, просто приведение делать

+1
<OFFTOP>
Но более всего меня забавляет/удивляет/раздражает код типа

if Someting is TSomeComponent then (Something as TSomeComponent).SomeMethod;

Ну почему отмерка выполняется всего два раза, а не положенные семь?
</OFFTOP>

[darkwellroad]

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

+1
<OFFTOP>
Но более всего меня забавляет/удивляет/раздражает код типа

if Someting is TSomeComponent then (Something as TSomeComponent).SomeMethod;

Ну почему отмерка выполняется всего два раза, а не положенные семь?

</OFFTOP>

Улыбнуло) Сорри за оффтоп..

[Serge_Bliznykov]

Но более всего меня забавляет/удивляет/раздражает код типа

if Someting is TSomeComponent then (Something as TSomeComponent).SomeMethod;

простите, коллега, а что Вас смущает?
То, что проверяется тип компонента или то, что после проверки выполняется приведение типа?
вы намекаете, что должно быть так?

if Someting is TSomeComponent then TSomeComponent(Something).SomeMethod;

а есть принципиальная разница?