多谢!
解决方案 »
- [高手进]程序编译时能否自动执行某段代码而运行时不执行?
- 请问看别人的源代码时,怎样知道别人对组件属性做了哪些修改
- 测试一下csdn的性欲分机制
- 向mengirl 道歉!
- 过年快放假了,开心,放点分之5
- 谁能帮我改一下这个很短的程序,我要求能够判断两个全局热键。
- 请教分组报表的时候,如何动态控制分组头?
- 天大的美事------------100大方 送出,行动吧各位仁兄。
- 在进行程序自适应分辨率的时候,窗体控件的属性怎样去设置呢?
- TNMUDP组件不能使用广播地址255.255.255.255,如何解决,另外,怎样获得子网掩码?
- 用Wise打包怎么把SQL Server2000需要的东东也打进去呢?
- GGJJ,一个关于Array转化成String类型的问题!紧急求救!谢谢!
type
TChild = Class(Parent)
private
FVal1: Integer;
FVal2: String;
public
...
end;
上面的FVal1和FVal2就是类变量成员,在Delphi中常称域或字段。
class procedure ......
为类方法。
要访问私有数据成员最好通过属性。
同一单元中的类互为友元类,可以访问各自的私有数据成员
TA = class
private
a :string;
end;TB = class
private
a :TA; //类类型的成员变量
end;
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
a:string;
end;这样定义的话,在创建类实例的时候可以调用这个成员变量。
不然就象Linux2001(恋人不如自恋) 说的那样
TB = class
private
a :TA; //类类型的成员变量
end;
但这种方法我没试过,不知道在类里面还能定义这个类的实例,作为成员变量。
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
class function GetVal:integer;
end;var
Form1: TForm1;implementation{$R *.dfm}var
StaticVal:integer=0;{ TForm1 }class function TForm1.GetVal: integer;
begin
Result:= StaticVal;
end;end.