最近研究定义成员，稍微总结一下，以后继续补充：
类成员类型有待讲究。望知者相告。
在delphi7中怎么创立一个自己的类：
1、类定义位置：新建一个单元，如下所示
unit Unit3;interfaceimplementationend.
类的定义应在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);beginend;function TStudent.GetID:string;begin result := ID;end;constructor TStudent.Create(i:integer);begin ID := 'abc';end;constructor TStudent.Create;beginend;destructor TStudent.Destroy;beginend;end.
procedure TForm1.Button1Click(Sender: TObject);var stuA : TStudent;begin stuA := TStudent.Create(1); ShowMessage(stuA.GetID);end;
文章结束给大家分享下程序员的一些笑话语录： 大家喝的是啤酒，这时你入座了。
你给自己倒了杯可乐，这叫低配置。 你给自已倒了杯啤酒，这叫标准配置。 你给自己倒了杯茶水，这茶的颜色还跟啤酒一样，这叫木马。 你给自己倒了杯可乐，还滴了几滴醋，不仅颜色跟啤酒一样，而且不冒热气还有泡泡，这叫超级木马。 你的同事给你倒了杯白酒，这叫推荐配置。 菜过三巡，你就不跟他们客气了。 你向对面的人敬酒，这叫p2p。 你向对面的人敬酒，他回敬你，你又再敬他……，这叫tcp。 你向一桌人挨个敬酒，这叫令牌环。 你说只要是兄弟就干了这杯，这叫广播。 有一个人过来向这桌敬酒，你说不行你先过了我这关，这叫防火墙。 你的小弟们过来敬你酒，这叫一对多。 你是boss，所有人过来敬你酒，这叫服务器。 酒是一样的，可是喝酒的人是不同的。 你越喝脸越红，这叫频繁分配释放资源。 你越喝脸越白，这叫资源不释放。 你已经醉了，却说我还能喝，叫做资源额度不足。 你明明能喝，却说我已经醉了，叫做资源保留。 喝酒喝到最后的结果都一样 你突然跑向厕所，这叫捕获异常。 你在厕所吐了，反而觉得状态不错，这叫清空内存。 你在台面上吐了，觉得很惭愧，这叫程序异常。 你在boss面前吐了，觉得很害怕，这叫系统崩溃。 你吐到了boss身上，只能索性晕倒了，这叫硬件休克。--------------------------------- 原创文章 By
定义和成员---------------------------------