如何添加更多<if then =“”else =“”>语句

Question

我有以下代码：

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

哪种方法效果很好，如果＆＃39;选择＆＃39;如果没有执行 actEmailLivrare ，则会在指定的字段中找到 actEmailPickup 。

除了这些之外，我想再添加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之后的execute不是声明，因此theme.yaml不需要分隔