function TfrmHFReaderDemoMain.getBinStr(pBinStr: pchar; sHexStr: string): Boolean;
var
  i: Integer;
begin
  result := False;
  for i := 0 to (Length(sHexStr) div 2) - 1 do
    (pBinStr + i)^ := Char(StrToInt('$' + copy(sHexStr, i * 2 + 1, 2)));
end;


c++ Builder로 변환하는데 잘 안되네요
고수님들 부탁 드립니다.
좋은 하루 되세요