Как добавить больше <если потом еще> заявление

Question

я следующий код:

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

Который работает хорошо, если «забрать» находится в указанном поле, то он выполняет 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; 

К сожалению, этого не происходит k, возвращает ошибку, связанную с Boolean, так как я довольно новый, мне не удалось разобраться в этом.

Должен ли мой последний код выглядеть, если это вообще возможно?

Я использую 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; 

Как я уже говорил, Паскаль нуждается в точку с запятой между утверждениями и начать/конец пары вокруг них, если они должны выполнить в виде блока. actSendSMSPickup.Execute и actSendSMSLivrare.Execute не нужны точки с запятой после них, потому что end после каждого из них не является инструкцией, и поэтому execute s не нужно отделять от него.