[Error] Unit1.pas(37): 'END' expected but 'ELSE' found

Question

begin
   i:=strtoint(edit1.Text);
   if i mod 100=0 then
      form2.show;
      form1.Hide
   else if i mod 4=0 then
       form2.show;
       form1.Hide
   else
       form3.show;
       form1.hide;
end;不知道哪里错了

Answer 1

begin
  i:=strtoint(edit1.Text);
  if (i mod 100)=0 then
  begin
    form2.show;
    form1.Hide;
  end
  else begin
    if (i mod 4)=0 then
    begin
      form2.show;
      form1.Hide;
    end else 
    begin
      form3.show;
      form1.hide;
    end;
  end;
end;

Answer 2

if else 结构混乱
第一个form1.Hide后面没有分号

Answer 3

用delphi就要多用几个begin end

Answer 4

delphi的语句块用begin开始end结束

Answer 5

去下载<<pascal精要>>看看里面具体讲了语法

Answer 6

begin
  i:=strtoint(edit1.Text);
  if (i mod 100)=0 then
  begin
    form2.show;
    form1.Hide;
  end
  else begin
    if (i mod 4)=0 then
    begin
      form2.show;
      form1.Hide;
    end else 
    begin
      form3.show;
      form1.hide;
    end;
  end;
end;

Answer 7

begin
  i:=strtoint(edit1.Text);
  if i mod 100=0 then
  begin
    form2.show;
    form1.Hide;
  end
  else if i mod 4=0 then
  begin
    form2.show;
    form1.Hide;
  end
  else
  begin
    form3.show;
    form1.hide;
  end;
end;