转换十六进制字符串到bcd编码格式.txt

来自「常见的几种数据格式转换,例如16进制字符串转化为16进制字节数组」· 文本 代码 · 共 16 行

function HexStrToBCDStr(sSourceStr: string): string; //转换十六进制字符串到BCD编码格式
var
  I: Integer;
begin
  if (Length(sSourceStr) mod 2) = 1 then sSourceStr := sSourceStr + '0';

  I := 1;

  while I < Length(sSourceStr) do
  begin
    Result := Result + IntToHex(byte(StrToInt('$' + copy(sSourceStr, I, 2))) shr
      4, 2) +
      IntToHex(byte(StrToInt('$' + copy(sSourceStr, I, 2))) and $0F, 2);
    I := I + 2;
  end;                                            // while
end;