从 Form1.Caption = “Hello World”说起(5)

后来因为”工作需要”，要维护一个用Delphi写的考试程序，临时突击了一下Pascal语言。其中看到Pascal类的实现时才终于解决了我在C Builder中的疑问。与C 类似，在Object Pascal中也支持相似的类实现。有自己的:private, protected,public，以及类的继承等等。一个简单的Pascal类大致为以下形式:

TMyPoint = class(TObject)

private

FX, FY : Integer;

public

function PtInRect(const r : TRect) : boolean;{判断当前的点是否在指定的Rect中}

function GetX : integer;

function GetY : Integer;

//设置FX 为 nX,并进行错误检测,也可以根据需要执行某些操作

procedure SetX(const nX : integer);

procedure SetY(const nY : integer);

end;

其中的

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有