小白遇到的问题，请高手帮忙

春雨田

这是按教程输入的代码，实际执行中遇到了几个问题，但与教程代码核对了几遍没有发现输错代码，请教高手到底差在哪了？谢谢！！

procedure TForm1.RadioButton1Click(Sender: TObject); //选择性别
begin
  if radiobutton1.checked then
    str_sex:='男';
  else  if radiobutton2.checked  then
    str_sex:='女';
end;

凌九霄

注意begin...end的使用

procedure TForm1.Button1Click(Sender: TObject);
begin

if radiobutton1.checked then
  begin
    str_sex:='男';
  end
else  if radiobutton2.checked  then
  begin
       str_sex:='女';
  end;
end;
end.

春雨田

谢谢楼上指点。但我运行后还是报错见图：

TForm1.RadioButton1Click(Sender: TObject); //选择性别
begin
  if radiobutton1.checked then
    str_sex:='男';
  end
    else if radiobutton2.checked then
    begin
      str_sex:='女';
    end;
end;
end.

出错信息如下：
构建
  [错误] Unit1.pas(51): ';' expected but 'ELSE' found
  [错误] Unit1.pas(55): '.' expected but 'END' found
  [错误] Unit1.pas(29): Unsatisfied forward or external declaration: 'TForm1.RadioGroup1Click'
  [错误] Unit1.pas(30): Unsatisfied forward or external declaration: 'TForm1.CheckBox1Click'
  [错误] Unit1.pas(31): Unsatisfied forward or external declaration: 'TForm1.Button1Click'
  [致命错误] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

凌九霄

春雨田 发表于 2019-3-28 14:26
谢谢楼上指点。但我运行后还是报错见图：
出错信息如下：
构建

明显你又写漏了if 下面的 begin

春雨田

谢谢！！问题已经解决。以后还得认真点。

zxpgggh

学习了

cplus

楼主，问题解决了，请结帖！