Question

delphi私有变量

unit list_unit;

interface
type
tlist=class(tobject) //类tlist的声明
private
datamod:tdatamod; //私有变量
public //公共方法的定义
function listrec(list_code:string):boolean;
function listsfind(sql:string):boolean;
function lists(findsql:string):olevariant;
procedure listinsert(insertsql:string);
procedure listupdata(updatesql:string);
procedure listdelete(deletesql:string);
为什么老是说Undeclared identifier:"tdatamod".
我按着书上的来的,看了一下,一开始就是对Tdatamod直接使用,没有过任何的定义或是声明

Answer 1

tdatamod这个类你定义了没有？或者包含这个类定义的单元文件你引用了没有呢？瞎蔽

像这样定义一下就行磨岩州了
type
TForm1 = class(TForm)
end;
type
TDataMod = class(TForm)
private
datamod:TDataMod;
{ Private declarations }
public
{ Public declarations }
end;
但是不知道你的那个TDataMod是个什么东东，是怎么定义的枣银。你找源码看看

Answer 2

Undeclared identifier:"tdatamod". 是说该类顷好兆型未声明雀租。
莫非是袜宽TDataModule？
这个datamod在程序中干嘛用了呢。

Answer 3

看一下Tdatamod在哪个单元内，uses一下。