解决了 var i: Integer; aArr : array of byte; s:string; begin s:='0900010203020100003F0000'; SetLength(aArr,(Length(s) div 2)); for i:=0 to (Length(s) div 2)-1 do begin aArr[i] :=HexToInt(copy(s,i*2+1,2)); //aArr[1] := $+'3F'; end; //Edit1.Text:=StrToHexStr(HexStrToStr(IntToHex(aArr[9],2))); Edit1.Text:=inttostr(Length(HexStrToStr(IntToHex(aArr[9],2)))); //Edit1.Text:=inttostr(Length(HexStrToStr(IntToHex(aArr[1],2)))); end;
----------------------------------------------
free