advpascalutils

高级Pascal实用程序

AdvPascalUtils 是一个为 FreePascal 和 Delphi 实现的一些有用模式和复杂数据结构的库。

目录

• 要求
• 安装
• 用法
• 数据结构
  • TA动作管理器
  • 事件管理器

要求

• 内河码头 (R) Rad Studio
• 自由 Pascal 编译器
• 拉撒路集成开发环境

库经过测试

• Windows 7 Service Pack 1 上的 Embarcadero (R) Delphi 10.3（版本 6.1，Build 7601，64 位版本）
• Windows 10 上的 Embarcadero (R) Delphi 11.0 版本 28.0.42600.6491（版本 10.0，内部版本 19042，64 位版本）
• Ubuntu Linux 5.8.0-33-generic x86_64 上的 FreePascal 编译器 (3.2.0) 和 Lazarus IDE (2.0.10)

安装

获取源并将源目录添加到项目搜索路径中。对于 FPC，将源目录添加到fpc.cfg文件中。

用法

克隆存储库git clone https://github.com/isemenkov/advpascalutils 。

将要使用的单位添加到uses子句中。

数据结构

TA动作管理器

TActionManager 是 TEventManager 机制的高级版本，用于订阅和触发事件。

 uses
  advutils.action;
  
type
  TActionManager = class

• TA动作状态
• TRun策略
• 冻结策略
• TA动作
• TA动作管理器
  • TAction回调
  • 登记
  • 跑步
  • 冻结
  • 解冻
  • 冻结重置
  • 是否冻结
  • 订阅

更多详细信息请参阅维基页面。

事件管理器

TEventManager是观察者模式的实现。您可以订阅事件，并稍后使用事件管理器触发不同类型的事件。

 uses
  advutils.event;

type
  TEventManager = class

• 事件回调
• 创造
• 订阅
• 跑步

更多详细信息请参阅维基页面。