delphi – 这种方法调用形式只允许类方法错误

发布时间：2020-12-15 04:26:08 所属栏目：大数据来源：网络整理

导读：我一直收到这个错误.在FGetZoneData上我有： var SelectedDept: String;implementationprocedure TFGetZoneDept.GetClick1(Sender: TObject);var azone: string; adept: string; bstats,bname,btop,bleft,bnumber,basset: string; machine : TMachine;begin

我一直收到这个错误.在FGetZoneData上我有：

var
   SelectedDept: String;

implementation

procedure TFGetZoneDept.GetClick1(Sender: TObject);
var
  azone: string;
  adept: string;
  bstats,bname,btop,bleft,bnumber,basset: string;
  machine : TMachine;
begin
  fdb.count := 0;  //keeps track of number of machines in zone
  azone := Combobox1.Text;    //gets name of zone
  adept := TfDB.GetDeptDBName(SelectedDept); //gets name of dept from a function
  fdeptlayout.ListBox1.Clear;
end;

在TFdB上我有一个公开声明的函数：

public
    Function GetDeptDBName(name :string):String;
end;

知道为什么这不起作用吗？

解决方法

你在一个类上调用方法(我假设TfDB是一个类名)而不是在一个实例上.这样只能调用 class methods.你要做的是创建一个实例,然后在其上调用方法：

var DB: TfDB;
begin
  DB := TfDB.Create(); // create an instance
  adept := DB.GetDeptDBName(SelectedDept); // call the method

请参阅docwiki中的E2076 This form of method call only allowed for class methods主题.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!