Delphi的学习笔记十一——类1

1.类成员的可见性

private          //不可见protected     //派生类可见public           //可见published     //可见。用于运行时信息automated   //可见。用于兼容（只用于windows）

在{$M+}状态下编译类时，它的默认可见性为published；否则，则它的可见性是public；

2.类方法调用

inherited（继承）：就是调用父类的函数。如果不带参数就是默认调用父类的同名函数；如果带参数则表明子类中的函数的参数个数可能比祖先类要多取其中的几个参数传过去
例如

祖先类有个函数 Create(AName:string);子类有个函数 Create(AName:string;AComponent:TObject);override;那么子类的Create函数内就可以这样调用祖先类：procedure TAClass.Create(AName:string;AComponent:TObject);beginInherited Create(AName);end;

类方法可以看做是公共方法，对于类方法的调用。例如：

constructor TMyClass.Create;begin  inherited;  MyProc;  //调用类方法end;class procedure  TMyClass.MyProc;begin  ShowMessage('OK'); //类方法实现end;procedure TForm1.FormCreate(Sender: TObject);var  myclass : TMyClass;begin  TMyClass.MyProc;  //用类名调用类方法  myclass := TMyClass.Create;   //初始化对象  myclass.MyProc;  //对象调用类方法  myclass.Free; //释放对象end;

3.覆盖虚方法

//定义父类、子类方法{父类}TParent = classprotected  function MyFun(i:Integer):Integer;dynamic; //动态方法  procedure MyProc; virtual;  //虚方法end;{子类}TChild = class(TParent) //继承父类protected  function MyFun(i:Integer):Integer;override;  //覆盖方法  procedure MyProc; override;end;

实现类的方法、过程

{TParent}function TParent.MyFun(i:Integer): Integer;begin  Inc(i);  //i++  Result:=i;  //返回变量iend;procedure TParent.MyProc;begin  ShowMessage('Parent');end;{TChild}function TChild.MyFun(i:Integer):Integer;begin  i:= inherited MyFun(i);  //继承父类的MyFun方法  Inc(i);  Result:=i;end;procedure TChild.MyProc;begin  inherited; //调用父类的MyProc方法  ShowMessage('child');end;

我们可以注意到在实现子类方法的时候利用inherited来继承父类的方法。

 

4.抽象类考虑到抽象类在某种程度上可以用接口来代替，所以这里我并不在仔细对抽象类进行介绍。直接给例子：

{父类}TParent = classprotected  function MyFun(i:Integer):Integer;abstract; //动态方法end;{子类}TChild = class(TParent) //继承父类protected  function MyFun(i:Integer):Integer;override;  //覆盖方法end;

对类方法的实现也和第3点类方法的覆盖相类似。

 

5.方法重载

{1.关于方法重载： 2.过程和函数之间可以重载 3.类内重载必须有 overload 关键字 4.子类重载必须有 overload 关键字，夫类可以没有 5.如果夫类是虚函数(virtual dynamic),子类重载时需要加 reintroduce 修饰词 6.published 区内不能重载} //方法重载 TMyClass2 = class protected   procedure MyProc1(i:Integer); overload; //重载方法   function MyFun1(s1,s2:string): string; overload; end;

对类方法的实现也和第3点类方法的覆盖相类似。

 

6.参数默认值

例如

//带默认值的参数只能在后面function MyFun(a:Integer; b:Integer=1; c:Integer=2): Integer;begin  Result := a + b + c;end;

如在调用该函数时，对参数已赋值。则默认值不起作用；如未赋值，则用默认值进行操作。

 

7.属性的自动完成

在Type区写入

TMyClass = class    property s: string;  end;

然后把光标放在其中，执行Ctrl+Shift+C。Delphi会自动生成属性的相关代码

TMyClass = class  private    Fs: string;    procedure Sets(const Value: string);  published    property s: string read Fs write Sets;  end;{ TMyClass }procedure TMyClass.Sets(const Value: string);begin  Fs := Value;end;

8. 对TClass的调用（可读性好）：

type TMyClass = class(TObject)...end;

9.Forward声明

type   TFigure = class;   TDrawing = class      Figure : TFigure;      ...   end;   TFigure = class      Drawing: TDrawing;      ...    end;