equal
deleted
inserted
replaced
118 end; |
118 end; |
119 |
119 |
120 procedure KeyPressChat(Key: Longword); |
120 procedure KeyPressChat(Key: Longword); |
121 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0); |
121 const firstByteMark: array[1..4] of byte = (0, $C0, $E0, $F0); |
122 var i, btw: integer; |
122 var i, btw: integer; |
123 utf8, s: shortstring; |
123 utf8: shortstring; |
124 begin |
124 begin |
125 if Key <> 0 then |
125 if Key <> 0 then |
126 case Key of |
126 case Key of |
127 8: if Length(InputStr.s) > 0 then |
127 8: if Length(InputStr.s) > 0 then |
128 begin |
128 begin |