面向对象程序设计问题征解,高分赠送

Impylm 2001-07-21 11:44:30
我定义了两个类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;


//由高手请帮忙看看错在哪里?
...全文
70 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
乱码 2001-07-25
  • 打赏
  • 举报
回复
解决了就说嘛
你不说大家怎么知道你解决了
Impylm 2001-07-23
  • 打赏
  • 举报
回复
此问题已经解决
Impylm 2001-07-21
  • 打赏
  • 举报
回复
以上类的实例在另外两个Form中得到应用,第一个Form从数据库中提取数据,第二个Form对选中的数据记录进行修改
乱码 2001-07-21
  • 打赏
  • 举报
回复
……
gAuthor:=cAuthor.Create;
fADODataSet:=TADODataSet.Create(Application);
fADODataSet:=uAuthMag.gAuthor.fADODataSet;
//^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^应该是:
// uAuthMag.gAuthor.fADODataSet:=fADODataSet; //吧?



//在这里引用前面定义的全局变量
end;


//还有gAuthor定义为全局的变量,会不会重复Create了?
Impylm 2001-07-21
  • 打赏
  • 举报
回复
没有人帮忙吗?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧