Здравствуйте! Непонятная мне утечка мозгов. Код, за ним пояснения: [Code] type TBinar: array of Byte; ... function ...(AStr: String): Word; var B1: TBinar; //Исходный B2: TBinar; //Переходной I: Integer; begin //Готовим буфер SetLength(B1, Length(AStr) * SizeOf(AStr[1])); SetLength(B2, 0); Move(AStr[1], B1[0], Length(B1)); //Переносим в буфер2 все кроме нулей for I := 0 to Length(B1) - 1 do if B1[I] <> 0 then begin SetLength(B2, L ...

http://www.delphikingdom.com/asp/answer.asp?IDAnswer=83165