关于的Delphi算法的问题

Bliny 2006-03-04 05:27:40
各位大侠:
帮帮小妹吧!在Delphi中如何把BCD码转化成ASCLL码?(写个函数),我现在急啊!帮忙了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
...全文
155 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
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;

1,268

社区成员

发帖
与我相关
我的任务
社区描述
软件工程/管理 管理版
社区管理员
  • 研发管理社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧