我想在我的 case ... 语句中使用 Sender 作为 TObject 的选择条件。
一个技巧,使发送者成为案例语句所要求的序数类型?
procedure TForm.ShowGUI (Sender: TObject);
begin
case sender of
ToolButton1: begin
do_something;
end;
ToolButton2: begin
///
end;
ToolButton3: begin
do_stufff_here;
end;
ToolButton3: begin
///
end;
else ;
end;
end;
一个技巧,使发送者成为案例语句所要求的序数类型?
case
语句了。他们可以在后台自动将case
语句转换为一系列的if
语句,这样我们就可以使用非常量表达式和字符串了。这会节省我们手动转换的工作,因为我们无论如何都要这样做。 - Cosmin Prund