关于的Delphi算法的问题

[Bliny]

各位大侠：
帮帮小妹吧！在Delphi中如何把BCD码转化成ASCLL码？（写个函数），我现在急啊！帮忙了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

[hydonlee]

function BcdToStr(const ABcdValue: array of Byte): string;
var
i: integer;
begin
SetLength(Result, Length(ABcdValue) * 2); //决定字串长度

for i := Low(ABcdValue) to High(ABcdValue) do
begin
//右移4位取高4位
Result[i * 2 + 1] := Chr((ABcdValue[i] shr 4) + 48);
//与(1111)2来取低4位
Result[i * 2 + 2] := Chr((ABcdValue[i] and $F) + 48);
end;
end;

• 打赏
• 举报

回复 赞