changeset 9172 | 72bfa6a3e8e2 |
parent 9080 | 9b42757d7e71 |
child 9175 | dc3c0e44f7f3 |
9171:e72f4f37a444 | 9172:72bfa6a3e8e2 |
---|---|
210 close(f) |
210 close(f) |
211 {$I+} |
211 {$I+} |
212 end; |
212 end; |
213 |
213 |
214 procedure SendStat(sit: TStatInfoType; s: shortstring); |
214 procedure SendStat(sit: TStatInfoType; s: shortstring); |
215 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B'); |
215 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c'); |
216 var buf: shortstring; |
216 var buf: shortstring; |
217 begin |
217 begin |
218 buf:= 'i' + stc[sit] + s; |
218 buf:= 'i' + stc[sit] + s; |
219 SendIPCRaw(@buf[0], length(buf) + 1) |
219 SendIPCRaw(@buf[0], length(buf) + 1) |
220 end; |
220 end; |