我尝试定义一个私有方法:
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;