equal
deleted
inserted
replaced
374 begin |
374 begin |
375 r:= SignAs(cLittle, r) |
375 r:= SignAs(cLittle, r) |
376 end; |
376 end; |
377 |
377 |
378 procedure SendStat(sit: TStatInfoType; s: shortstring); |
378 procedure SendStat(sit: TStatInfoType; s: shortstring); |
379 const stc: array [TStatInfoType] of char = 'rDkKHT'; |
379 const stc: array [TStatInfoType] of char = 'rDkKHTPsSB'; |
380 var buf: shortstring; |
380 var buf: shortstring; |
381 begin |
381 begin |
382 buf:= 'i' + stc[sit] + s; |
382 buf:= 'i' + stc[sit] + s; |
383 SendIPCRaw(@buf[0], length(buf) + 1) |
383 SendIPCRaw(@buf[0], length(buf) + 1) |
384 end; |
384 end; |