面向对象程序设计问题征解,高分赠送
我定义了两个类uAuthMag,uEditAuth,声明如下:
unit uAuthMag;
interface
uses
…………
type
cAuthor=Class(TObject)
private
……
public
{***}fADODataSet:TADODataSet;{***}
……
end;
var
{***}gAuthor:cAuthor;{***}
implementation
……
unit uEditAuth;
interface
uses
……uAuthMag;
Type
cEditAuthor=Class(TOBJECT)
private
{***}fADODataSet:TADODataSet;{***}
……
public
……
constructor Create;
procedure SetStutas(pName:TEdit);
implementation
……
constructor uEditAuthor.Create;
begin
……
gAuthor:=cAuthor.Create;
fADODataSet:=TADODataSet.Create(Application);
fADODataSet:=uAuthMag.gAuthor.fADODataSet;
//在这里引用前面定义的全局变量
end;
procedure uEditAuthor.SetStutas(pName:TEdit);
begin
pName.Text:=uAuthMag.gAuthor.fADODataSet.FieldValues['Name'];
//取出前面已经打开的数据集中的数据
//编译成功,但是实际运行错误!
end;
//由高手请帮忙看看错在哪里?