当前位置:网站首页>类方法和类变量的使用
类方法和类变量的使用
2022-07-04 20:34:00 【pcplayer】
前言
Delphi 语法,有类方法 class procedure 和 class function ;也有类变量 class var。
可以用来干嘛?
场景
WebService 服务器端,多个 SoapDataModule 共用的方法,放到一个 DataModule 里面去。
每次 SOAP 调用,需要在 SoapDataModule 实现接口方法里面,创建该 DataModule 的实例,调用其方法,然后释放。
创建和释放的代码,总是重复。并且,没有对象缓冲池。
当然,可以给这个 DataModule 实现一个基于接口释放的对象缓冲池,但代码架构就比较复杂了。
如果想少写代码,则可考虑在该 DataModule 里面实现自己的创建和释放以及缓冲管理的代码。
背景:
请查阅本篇文章的上一篇文章。
代码例子
以下代码测试通过
该模块自己实现自己的缓冲池的代码
unit UDmPool;
interface
uses
System.SysUtils, System.Classes;
type
TDmPool = class(TDataModule)
private
{ Private declarations }
class var FList: TList;
public
{ Public declarations }
class function GetMyDM: TDmPool;
class procedure ReleaseDM(DM: TDmPool);
class function GetPoolCount: Integer;
function HelloPool(const S: string): string;
end;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
{$R *.dfm}
{ TDmPool }
class function TDmPool.GetMyDM: TDmPool;
var
DM: TDmPool;
begin
if not Assigned(FList) then FList := TList.Create;
if FList.Count = 0 then
begin
DM := TDmPool.Create(nil);
Result := DM;
end
else
begin
DM := TDmPool(FList.Items[0]);
FList.Delete(0);
end;
end;
class function TDmPool.GetPoolCount: Integer;
begin
if not Assigned(FList) then
begin
Result := 0;
Exit;
end;
Result := FList.Count;
end;
function TDmPool.HelloPool(const S: string): string;
begin
Result := 'Hello, ' + S + '; This is DmPool';
end;
class procedure TDmPool.ReleaseDM(DM: TDmPool);
begin
FList.Add(DM);
end;
end.
在 SOAPDATAMODULE 里面调用它的代码
function TSoapDM_A.HelloPool(const S: string): string;
var
DM: TDmPool;
begin
DM := TDmPool.GetMyDM;
Result := DM.HelloPool('SoapDM_A' + S);
TDmPool.ReleaseDM(DM);
end;
服务器端界面显示缓冲池数量的代码
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label2.Caption := 'PoolCount = ' + TDmPool.GetPoolCount.ToString;
end;
结论:
使用 class function 和 class var 可以解决把重复代码集中实现在一个类里面的预期。同时实现一个简单的缓冲池。
边栏推荐
猜你喜欢
[1200. Minimum absolute difference]
迈动互联中标北京人寿保险
Foxit pdf editor v10.1.8 green version
Jmeter 之压测入门
A quick start to fastdfs takes you three minutes to upload and download files to the ECS
Golang中UTF编码和字符集
FastDfs的快速入门,三分钟带你上传下载文件到云服务器
UTF encoding and character set in golang
What are the functional modules of RFID warehouse management system solution
网件r7000梅林系统5g不稳定 5g信号经常掉线解决方法
随机推荐
Embedded TC test case
redis03——Redis的网络配置与心跳机制
[solution] paddlepaddle 2 X call static graph mode
Huawei ENSP simulator configures ACL access control list
华为ensp模拟器 三层交换机
多模输入事件分发机制详解
Hwinfo hardware detection tool v7.26 green version
Word文档中标题前面的黑点如何去掉
Explication détaillée du mécanisme de distribution des événements d'entrée multimodes
Solution of 5g unstable 5g signal often dropped in NetWare r7000 Merlin system
巅峰不止,继续奋斗!城链科技数字峰会于重庆隆重举行
【微信小程序】协同工作与发布
admas零件名重复
Routing configuration and connectivity test of Huawei simulator ENSP
redis RDB AOF
网络命名空间
JS卡牌样式倒计时天数
redis RDB AOF
Huawei ENSP simulator configures DHCP for router
Why does invariant mode improve performance