我不断收到此错误。在FGetZoneData
I have:
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;
and on TFdB
我有一个公开声明的函数:
public
Function GetDeptDBName(name :string):String;
end;
知道为什么这行不通吗?
您正在调用类上的方法(我假设TfDB
是类名)不在实例上。仅有的类方法可以这样称呼。您要做的就是创建一个实例,然后调用它的方法:
var DB: TfDB;
begin
DB := TfDB.Create(); // create an instance
adept := DB.GetDeptDBName(SelectedDept); // call the method
See the E2076 这种形式的方法调用仅允许类方法docwiki 中的主题。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)