equal
deleted
inserted
replaced
343 begin |
343 begin |
344 r:= SignAs(cLittle, r) |
344 r:= SignAs(cLittle, r) |
345 end; |
345 end; |
346 |
346 |
347 procedure SendStat(sit: TStatInfoType; s: shortstring); |
347 procedure SendStat(sit: TStatInfoType; s: shortstring); |
348 const stc: array [TStatInfoType] of char = 'rDkKH'; |
348 const stc: array [TStatInfoType] of char = 'rDkKHT'; |
349 var buf: shortstring; |
349 var buf: shortstring; |
350 begin |
350 begin |
351 buf:= 'i' + stc[sit] + s; |
351 buf:= 'i' + stc[sit] + s; |
352 SendIPCRaw(@buf[0], length(buf) + 1) |
352 SendIPCRaw(@buf[0], length(buf) + 1) |
353 end; |
353 end; |