函数定义错误！

Question

type  TDM = class(TDataModule)
    scnn: TSQLConnection;
    bmSDS: TSimpleDataSet;
    Function searchbmmc(const bmdm:TDBEdit):string;
  private
    { Private declarations }
  public    { Public declarations }
  end;提示错误：[Error] commDM.pas(13): Unsatisfied forward or external declaration: 'TDM.searchbmmc'这是什么毛病？

Answer 1

//在实现部分写
TDM.searchbmmc(const bmdm:TDBEdit):string;
begin
end;

Answer 2

//在实现部分写
function TDM.searchbmmc(const bmdm:TDBEdit):string;
begin
end;

Answer 3

自定义的函数要放在private或是public这里面.

Answer 4

你按CTRL+SHIFT+C三个按键 看系统是否能自动生成这样的代码：function TDM.searchbmmc(const bmdm:TDBEdit):string;
begin
end;如果不能的话 就是你的函数定义区域不对 改到private或public或protected区就OK了

Answer 5

你函数所在的域是 published, Delphi 中类的缺省定义是 published, 主要用在 object inspector 中, 作为组件的事件而用.

Answer 6

函数定义的位置不妥，但没有错误在前面加上uses DBCtrls即可