类方法的使用

　　类方法（Class methods）是一类特殊的方法，它们在声明时要以class开头

　　type

　　TFigure = class

　　public

　　...

　　class procedure GetInfo(varInfo:TFigureInfo); virtual;

　　...

　　end;

　　实现时也以class开头

　　class procedureTFigure.GetInfo(varInfo:TFigureInfo);

　　begin

　　...

　　end;

　　（具体意义请自行查看帮助）

　　乍一看好象平时没有遇到过这个东东，也没有看到过谁用过这个东东，好象这个东东也没有什么大作用，其实不然……

　　比如我们有时为输入密码或其他常用数据专门做一个form，但由于其代码都在form定义的unit里面，所以在使用时仅仅需要几行代码，比如

　　with TfrmPassword.Create(nil) do

　　try

　　ShowModal;

　　finally

　　Free;

　　end;

　　虽然这样的代码已经很简洁，但如果写个十七八个还是很讨厌的。利用类方法可以使其更简洁！一行足以……

　　TfrmPassword = class(TForm)

　　...

　　public

　　{ Public declarations }

　　class function Execute:TModalResult;

　　end;

　　...

　　class function TfrmPassword.Execute:TModalResult;

　　begin

　　with TfrmPassword.Create(nil) do

　　try

　　Result := ShowModal;

　　finally

　　Release; //注意此处必须为release不能为free！

　　end;

　　end;

　　然后只用一行

　　TfrmPassword.Execute;

　　即可直接完成调用……是否很爽^_^