Delphi过程声明错误

陈贱伟

1. unit Unit1;
   
2. interface
   
3. uses
   
4. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   
5. Dialogs, StdCtrls;
   
6. type
   
7. TForm1 = class(TForm)
   
8. Button1: TButton;
   
9. procedure a(str: String); //过程
   
10. private
    
11. { Private declarations }
    
12. public
    
13. { Public declarations }
    
14. end;
    
15. var
    
16. Form1: TForm1;
    
17. implementation
    
18. {$R *.dfm}
    
19. end.
    
20. 
    
21. //过程
    
22. procedure TForm1.a(str:string);
    
23. begin
    
24. 
    
25. end;
    
26. end.

复制代码

错误提示
[Warning] Unit1.pas(22): Text after final 'END.' - ignored by compiler
[Error] Unit1.pas(9): Unsatisfied forward or external declaration: 'TForm1.a'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

小布袋

19行的 end. 去掉 :D