红鱼儿

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) 编辑