资源大小: 183KB
发布时间: 2010-05-26
文件格式: rar
下载次数: 2
分享到:

下载地址:

下载地址1
(本站为飞网专业下载站,域名:down.cfei.net)

资源简介:

procedure InitEventArrs(Var ST: TEventArrs);begin Zeromemory(@ST,sizeof(TEventArrs)); ST.EventLogs := 0;end;procedure InsertEventArrs(Var ST: TEventArrs; EvMsg: EVENTMSG);begin ST.EventArr[ST.EventLogs] := EvMsg; Inc(ST.EventLogs);end;procedure WriteEventArrs(Var ST: TEventArrs; fp: Integer);begin FileWrite(fp,ST,sizeof(TEventArrs));end;function ReadEventArrs(Var ST: TEventArrs; fp: Integer): Boolean;begin if FileRead(fp,ST,sizeof(TEventArrs))>0 then Result := True el


飞网下载站,免费下载共享资料,内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。