delphi if

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='')or(edit2.Text='') then begin
messagebox(application.Handle,pchar(
'编辑框1和编辑框2的内容不能为空！'),pchar('提示'),MB_OK);
end else begin if radiobutton1.checked=true then begin
edit3.Text:=inttostr(strtoint(edit1.Text)+strtoint(edit2.Text));
end else begin if radiobutton2.Checked=true then begin
edit3.Text:=inttostr(strtoint(edit1.Text)-strtoint(edit2.Text));
end;
end;

end.

老实显示最后一样错误，麻烦高手帮我看下代码！

少了两个end;begin和end要配对出现,根本就不需要用到那么多的begin..end
改成这样就可以啦!最后希望你养成书写代码的规范性习惯

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='') or (edit2.Text='') then
messagebox(application.Handle,pchar('编辑框1和编辑框2的内容不能为空！'),pchar('提示'),MB_OK)
else if radiobutton1.checked then
edit3.Text := inttostr(strtoint(edit1.Text)+strtoint(edit2.Text))
else if radiobutton2.Checked then
edit3.Text := inttostr(strtoint(edit1.Text)-strtoint(edit2.Text));
end;

你好！ 什么错误啊？贴出来看看 仅代表个人观点，不喜勿喷，谢谢。