changeset 9178 | c0902317c823 |
parent 9175 | dc3c0e44f7f3 |
child 9197 | e4e366013e9a |
child 9301 | c5d1c8259ef4 |
9177:d5e98b81e135 | 9178:c0902317c823 |
---|---|
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', 'c', 'g'); |
215 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p'); |
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; |