类方法的使用

WTM1

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

　　type

　　TFigure = class

　　public

　　...

　　class procedure GetInfo(var Info: TFigureInfo); virtual;

　　...

　　end;
　　

　　实现时也以class开头

　　class procedure TFigure.GetInfo(var Info: 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;