如何向 <if then else> 语句添加更多内容

Question

我有以下代码：

procedure TForm2.actStareLivratExecute(Sender: TObject);
begin
if dbmodule.comenziDataSetlivrare.AsString = 'pick up' then
actEmailPickup.Execute
else
actEmailLivrare.Execute;
end;

如果在指定字段中找到“pickup”，那么它会执行 actEmailPickup，否则它会执行 actEmailLivrare。

除了这些之外，我还想添加 2 个要执行的操作：

actSendSMSLivrare.Execute

actSendSMSPickup.Execute

应该是这样的：

begin
if dbmodule.comenziDataSetlivrare.AsString = 'pick up' then
actEmailPickup.Execute
actSendSMSPickup.Execute
else
actEmailLivrare.Execute
actSendSMSLivrare.Execute;
end;

不幸的是，这不起作用，返回与布尔有关的错误，因为我还很新，我无法深入了解。

如果可能的话，我的最终代码应该是什么样子？

我正在使用 Rad Studio 10 Seattle。

Answer 1

试试

if dbmodule.comenziDataSetlivrare.AsString = 'pick up' then begin
  actEmailPickup.Execute;
  actSendSMSPickup.Execute
end
else begin
  actEmailLivrare.Execute;
  actSendSMSLivrare.Execute
end;

正如我所说，如果要作为块执行，Pascal 需要在语句之间使用分号并在它们周围使用开始/结束对。 actSendSMSPickup.Execute 和 actSendSMSLivrare.Execute 后面不需要分号，因为它们后面的 end 不是一个语句，所以 executes 不需要与之分开。