equal
deleted
inserted
replaced
242 begin |
242 begin |
243 r:= SignAs(cLittle, r) |
243 r:= SignAs(cLittle, r) |
244 end; |
244 end; |
245 |
245 |
246 procedure SendStat(sit: TStatInfoType; s: shortstring); |
246 procedure SendStat(sit: TStatInfoType; s: shortstring); |
247 const stc: array [TStatInfoType] of char = 'rDkK'; |
247 const stc: array [TStatInfoType] of char = 'rDkKH'; |
248 begin |
248 begin |
249 SendIPC('i' + stc[sit] + s) |
249 SendIPC('i' + stc[sit] + s) |
250 end; |
250 end; |
251 |
251 |
252 function Str2PChar(const s: shortstring): PChar; |
252 function Str2PChar(const s: shortstring): PChar; |