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

春雨田

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

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

复制代码

凌九霄

注意begin...end的使用

1. procedure TForm1.Button1Click(Sender: TObject);
   
2. begin
   
3. 
   
4. if radiobutton1.checked then
   
5.   begin
   
6.     str_sex:='男';
   
7.   end
   
8. else  if radiobutton2.checked  then
   
9.   begin
   
10.        str_sex:='女';
    
11.   end;
    
12. end;
    
13. end.
    

复制代码

春雨田

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

1. TForm1.RadioButton1Click(Sender: TObject); //选择性别
   
2. begin
   
3.   if radiobutton1.checked then
   
4.     str_sex:='男';
   
5.   end
   
6.     else if radiobutton2.checked then
   
7.     begin
   
8.       str_sex:='女';
   
9.     end;
   
10. end;
    
11. 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

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