|
#11
|
||||
|
||||
Было ж написано "что-то вроде", а не "точно так", да и сообщение компилятора вполне понятно - счётчик цикла не целочисленный. Вот так попробуй
Код:
function Hex2Byte(S : String):Byte; const C:string[16]='0123456789ABCDEF'; begin if Length(S) < 2 then Result := Pos(S[1], C) - 1 else Result := (Pos(S[1], C) - 1) shl 4 + Pos(S[2], C) - 1 end; ... for i := 0 to length(s) shr 1 + length(s) mod 2 - 1 do a[i] := Hex2Byte(Copy(s, i * 2 + 1, 2)); Последний раз редактировалось BBBCat, 16.03.2013 в 05:33. |