定义成员delphi7中类的定义和使用

最近研究定义成员，稍微总结一下，以后继续补充：

    类成员类型有待讲究。望知者相告。

    在delphi7中怎么创立一个自己的类：

    1、类定义位置：新建一个单元，如下所示

unit Unit3;

interface

implementation

end.

    类的定义应在interface和implementation之间。类的实现部分在implementation和end.之间。以type始以end;止。

    2、类成员类型：public、private、published默许类型为public

    3、构造函数、析构函数、重载函数。

    构造函数和析构函数必须是牢固格式。重载函数通过在函数定义后加overload;实现。

    4、类成员数据和成员方法的位置关系：在成员类型关键字之后必须是先成员数据后成员方法，否则会报错：Field definition not allowed after methods or properties.

    5、类的应用：声明一个类对象后，必须先调用其create方法，之后才可应用该类对象。

    每日一道理
如果说生命是一座庄严的城堡，如果说生命是一株苍茂的大树，如果说生命是一只飞翔的海鸟。那么，信念就是那穹顶的梁柱，就是那深扎的树根，就是那扇动的翅膀。没有信念，生命的动力便荡然无存；没有信念，生命的美丽便杳然西去。（划线处可以换其他词语）

    6、free是TObject类的方法，never call destroy directly，而是调用free method。

    有两个比较nb的事：

    1）仅有成员函数声明没有成员函数实现会报错。

    2）delphi的initialization和finalization单元，可代替构筑函数和析构函数。

    类定义和应用示例

unit Unit2;

interface
//有基类时 type TStudent = class(基类)
type TStudent=class
  procedure SetID(ID:string);
public
  ID : string;
  function GetID:string;
  constructor Create(i:integer); overload;
  constructor Create ; overload;
  destructor Destroy;
end;

implementation
  
procedure TStudent.SetID(ID:string);
begin

end;

function TStudent.GetID:string;
begin
  result := ID;
end;

constructor TStudent.Create(i:integer);
begin
  ID := 'abc';
end;

constructor TStudent.Create;
begin

end;

destructor TStudent.Destroy;
begin

end;
end.

procedure TForm1.Button1Click(Sender: TObject);
var
  stuA : TStudent;
begin
  stuA := TStudent.Create(1);
  ShowMessage(stuA.GetID);
end;

文章结束给大家分享下程序员的一些笑话语录： 大家喝的是啤酒，这时你入座了。
你给自己倒了杯可乐，这叫低配置。
你给自已倒了杯啤酒，这叫标准配置。
你给自己倒了杯茶水，这茶的颜色还跟啤酒一样，这叫木马。
你给自己倒了杯可乐，还滴了几滴醋，不仅颜色跟啤酒一样，而且不冒热气还有泡泡，这叫超级木马。
你的同事给你倒了杯白酒，这叫推荐配置。
菜过三巡，你就不跟他们客气了。
你向对面的人敬酒，这叫p2p。
你向对面的人敬酒，他回敬你，你又再敬他……，这叫tcp。
你向一桌人挨个敬酒，这叫令牌环。
你说只要是兄弟就干了这杯，这叫广播。
有一个人过来向这桌敬酒，你说不行你先过了我这关，这叫防火墙。
你的小弟们过来敬你酒，这叫一对多。
你是boss，所有人过来敬你酒，这叫服务器。
酒是一样的，可是喝酒的人是不同的。
你越喝脸越红，这叫频繁分配释放资源。
你越喝脸越白，这叫资源不释放。
你已经醉了，却说我还能喝，叫做资源额度不足。
你明明能喝，却说我已经醉了，叫做资源保留。
喝酒喝到最后的结果都一样
你突然跑向厕所，这叫捕获异常。
你在厕所吐了，反而觉得状态不错，这叫清空内存。
你在台面上吐了，觉得很惭愧，这叫程序异常。
你在boss面前吐了，觉得很害怕，这叫系统崩溃。
你吐到了boss身上，只能索性晕倒了，这叫硬件休克。

--------------------------------- 原创文章 By
定义和成员
---------------------------------