比如说, 我现在要设计一个类,从文本中得到信息。
但是我取到的信息在之后的程序中可能经常要用到,于是我就用一个全局变量去保存他,
但是这与面象对象的设计方法是有出入的(全局变量破坏封装)哪位高人指点一二?
但是我取到的信息在之后的程序中可能经常要用到,于是我就用一个全局变量去保存他,
但是这与面象对象的设计方法是有出入的(全局变量破坏封装)哪位高人指点一二?
解决方案 »
- 跪求一个算法,根据一个手机号,算出一个6位的数字
- 如何处理一个图标,使其颜色变暗?
- 请教高手,为什么我的TQuey控件有的fieldname的内容查不到?
- delphi7中去除了serversocket和clientsocket组件,怎么找回来?
- 在一个过程中打开一个窗体,如何等待该窗体关闭后才继续执行该过程中后面的语句?
- delphi7中的xp控件在哪里,怎么用?
- 想求一份程序员的工作(DELPHI+SQL2000)
- 关于对象创建的小问题!
- 如何利用数据库自己的报错信息,友好的提示给用户呢?详细请进...
- 运行时不显示主窗体的新问题
- 求助:Delphi中怎样将DBGridEH中的单元格颜色导入Excel!
- 菜鸟问题:这个程序该不该定义类?或者说用到面向对象思想?
TTextClass = Class;
private
Text: String; //文本信息
public
procedure SetText(Val: String);
Function GetText(Val: String);
end;
TForm1 = class(TForm);
private
public
Text: TTextClass;
end;
这样通过Text的GetText和SetText来访问文本信息了.
Function GetText: String;
TClass1 = Class;
private
procedure SetText(Val: String);
Function GetText: String;
public
Text: String read GetText write SetText; //文本信息
end;
TForm1 = class(TForm);
private
public
Data: TClass1;
end; 然后在具体需要的地方:
Data.Text := '你定义的数据' 可以实现;这样通过Text的GetText和SetText来访问文本信息了.