Lazarus 底层类库封装 更新

tjcfeng

增加Timer类的封装。可直接使用Timer0~5，示例：

var Timer0: TTimer;
begin
  Timer0:= TTimer.Create(Timer_0);
  with Timer0 do
  begin
    Prescal:= Div4;
    CNT:= 6000000;
    CUR:= 0;
    Start;
    while not Timer0.INT do ;
    //执行到这里是1秒
    Stop;
    Free;
  end;
end;

主帖更新下载：https://www.cirmall.com/bbs/thread-39364-1-1.html

Ares丶ST

感谢分享