论坛 › Delphi交流 › 第一个else报错，什么原因

wycl8 发表于 2017-9-1 20:30:36

第一个else报错，什么原因

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,,0)   ;
      end;
       //将结果写入列表框中，以便核对

      end;

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

end;

wycl8 发表于 2017-9-1 20:32:45

报错内容not allowed before ‘else’

ba21 发表于 2017-9-1 21:19:58

查看完整版本: 第一个else报错，什么原因