为什么不以这样定义.

Question

Procedure  Crea_showform(Fcaption:string;Findlx:integer;ModelGrid_havecell:TModelGrid_HCell);//
[Error] FindForm.pas(121): Unsatisfied forward or external declaration: 'TFind_form.Crea_showform'

Answer 1

实现部分加上：
...
implementationProcedure TFind_form.Crea_showform(Fcaption:string;Findlx:integer;ModelGrid_havecell:TModelGrid_HCell);
beginend;

Answer 2

在你定义了此方法之后，你需要给出实现代码：
type
  TFind_Form = class(TForm)
    ...
  public
    procedure  Crea_showform(Fcaption:string;Findlx:integer;
      ModelGrid_havecell:TModelGrid_HCell);
  end;implementationprocedure TFind_Form.Crea_ShowForm(Fcaption:string;Findlx:integer;
  ModelGrid_havecell:TModelGrid_HCell);
begin
  // Do Something
end;