[已解决]第一个else报错，什么原因

wycl8

procedure TForm1.btn2Click(Sender: TObject);
var
  x,y,z,h:integer;
  c:string;
begin
  x:=strtoint(edt1.Text);
  y:=strtoint(edt2.Text);
  z:=x*y ;
  //edt3.Text:=inttostr(z);
  //在此判断结果栏ect3 值是否为空，为空提示并退出
  if SameText(edt3.Text,'') then
    begin
    showmessage('计算结果不能为空！！') ;
    exit  ;
    end;

  //h:=strtoint(edt3.text);

//在此用自定义函数进行判断，文本框3是否为数字
   if IsNumber(edt3.text) then
   //showmessage('输入的为数字！！')
      begin
      if h=z then
        begin
        showmessage('^_^ 计算正确！加油！！') ;
        btn1Click(Sender );
        c:=inttostr(x)+ 'x'+ inttostr(y)+'='+ inttostr(z);
        edt3.Text:='';
        lst1.Items.Add(c);
        end;
      else
        begin
        messagedlg('你的小学数学是体育老师教的吧！'+#13#13#10+' 正确答案'+ inttostr(z) ,  mtwarning,[mbok],0)   ;
        end;
       //将结果写入列表框中，以便核对

      end;

    else
      begin
      showmessage('输入的为字母！！'+#13#13#10+' 请输入数字！！！');
      edt3.Text:='';
      end;

end;

最佳答案

月排行榜 / 总排行榜

ba21

2017-9-1 21:19:58

跳转到最佳答案楼层

wycl8

报错内容  not allowed before ‘else’

ba21