红鱼儿

2021年3月17日

Delphi Event Bus进阶（二）GlobalEventBus是怎么来的？

摘要： 无论是发布消息，注册订阅方法等，都用到GlobalEventBus这个全局接口对象。接下来我们看看他是怎么来的？ function GlobalEventBus: IEventBus; begin Result := TEventBusFactory.GlobalEventBus; end; 原来， 阅读全文

posted @ 2021-03-17 13:01 红鱼儿 阅读(457) 评论(0) 推荐(0) 编辑
小心SecondsBetween有坑

摘要： 看下面的代码，求两个时间间隔的秒数： procedure TForm2.FormCreate(Sender: TObject); begin d1:=Now; end; procedure TForm2.Timer1Timer(Sender: TObject); var i:Integer; s:s 阅读全文

posted @ 2021-03-17 10:32 红鱼儿 阅读(590) 评论(0) 推荐(0) 编辑