定义方法的问题

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;

我是Delphi的新手，有什么想法吗？我认为代码很好......

Answer 1

您在方法定义中错过了班级名称，请尝试

function TENPDataEntry.getLastIdMuestra(): integer;