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

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行是方法签名:


函数getLastIdMuestra():整数;


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

最佳答案

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

function TENPDataEntry.getLastIdMuestra(): integer;

07-25 23:41