| changeset 9175 | dc3c0e44f7f3 |
| parent 9172 | 72bfa6a3e8e2 |
| child 9178 | c0902317c823 |
| 9174:d328fe17b195 | 9175:dc3c0e44f7f3 |
|---|---|
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'); |
215 const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g'); |
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; |