定义方法的问题

Question

我尝试定义一个私有方法,我有:

unit FormENP;

interface

uses
  ....

type
  TENPDataEntry = class(TForm)
  ........
  private
    { Private declarations }
    function getLastIdMuestra(): integer;

  public
    { Public declarations }
  end;

var
  ENPDataEntry: TENPDataEntry;

implementation

{$R *.dfm}
{ Devuelve el id de la última muestra insertada en <MUESTRA> }
function getLastIdMuestra(): integer;
var
  query: TIBQuery;
  id: integer;
begin
  query := TIBQuery.Create(nil);
  ....
  id := query.Fields[0].AsInteger;
  query.Destroy;
  getLastIdMuestra := id;
end;
...
End.

但是编译器说:

[DCC错误] FormENP.pas(30):E2065不满意的前向或外部声明:'TENPDataEntry.getLastIdMuestra'

第30行是方法签名:

function getLastIdMuestra():integer;

我是德尔福的新手,有什么想法吗？我认为代码很好......

Answer 1

您错过了方法定义中的类名,请尝试

function TENPDataEntry.getLastIdMuestra(): integer;