语法错误，＆＃34;;＆＃34;预期，但＆＃34; ELSE＆＃34; found - IF-ELSE条件出错 - FreePascal

Question

我不明白为什么我的代码没有编译，任何人都可以帮我解决这个问题。 任何类型的评论都是有帮助的

这是代码：

procedure TForm1.Button2Click(Sender: TObject);
var
  days : integer;
begin
  if(Edit2.Text <> '') then
    days:= StrToInt(Edit2.Text);
    DDate.Minus(days);
    Edit1.Text := DDate.GetDate
  else
    ShowMessage('The field is required');
end;

Answer 1

如果您需要两个或多个true_statement或false_statement语句，那么语句组必须放在begin ... end Block

中

procedure TForm1.Button2Click(Sender: TObject);
var
  days: integer;
begin
  if(Edit2.Text <> '') then
   begin
    days := StrToInt(Edit2.Text);
    DDate.Resta(days);
    Edit1.Text := DDate.GetDate;
   end
  else
    ShowMessage('The field is required');
end; 

来源：http://wiki.freepascal.org/Else

Answer 2

如果封装在开始端块中，那么该部分不应该？缩进暗示了这一点。像这样：

var arr = str.split(/[\\|\/]/);