关于的Delphi算法的问题

Bliny 2006-03-04 05:27:40
各位大侠:
帮帮小妹吧!在Delphi中如何把BCD码转化成ASCLL码?(写个函数),我现在急啊!帮忙了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...全文
110 1 点赞 打赏 收藏 举报
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hydonlee 2006-03-13
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;
  • 打赏
  • 举报
回复
相关推荐
发帖
研发管理
创建于2007-08-27

1221

社区成员

软件工程/管理 管理版
申请成为版主
帖子事件
创建了帖子
2006-03-04 05:27
社区公告
暂无公告