请问在DELPHI中怎样将ASCII码转化为BCD码，在线等待

masong 2004-10-26 03:09:44

...全文

264 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

suuare 2004-10-26

打赏
举报

jinjazz(人雅的标记--落寞刺客) 的方法非常巧妙！学习哈哈！

speedman2000 2004-10-26

打赏
举报

function StrToBcd( const aValue: string): TBcd;

rjy206 2004-10-26

打赏
举报

jinjazz 2004-10-26

打赏
举报

var i:integer;
p:pByte;
a:array[0..3] of byte;
begin
i:=1000;
p:=@i;
a[1]:=p^;
inc(p,1);
a[0]:=p^;
showmessage(inttoHex(a[0],1));
showmessage(inttoHex(a[1],1));
end;

masong 2004-10-26

打赏
举报

对不起，我是指将 1000 --> #$03#$E8

trainbox 2004-10-26

打赏
举报

一样的

aiirii 2004-10-26

打赏
举报

const
BCD: array [0..15] of string =
('0000', '0001', '0010', '0011', '0100', '0101', '0110', '0111',
'1000', '1001', '1010', '1011', '1100', '1101', '1110', '1111');
var
i: integer;
begin
for i := Length(Hexadecimal) downto 1 do
Result := BCD[StrToInt('$' + Hexadecimal[i])] + Result;
end;

实现中文和 unicode 互相转换的代码可以很方便地转换中文和unicode 不用手动到cmd下转换

对日外包查词的绝对好东东！ IT词词典中日英对照翻译，学习英语和日语的好选择。词数8000条，TXT格式，可以用于制作各类词典文件。

记录一下自己在做项目的时候遇到的问题：芯片传回来的数据是以十六进制表示的，但是我想要把这十六进制代表的数据通过UART发送到电脑上表示出来，所以最终要求就是将十六进制表示的数据用ASCII码表示传给电脑。但是所用的单片机又调不出sprintf函数… 后面发现从HEX到ASCII很难直接实现，所以便想到：HEX—>BCD,BCD—>ASCII //==================...

#include #include #define uchar unsigned charuchar BCD_Decimal(uchar bcd) ;int main(void){uchar ch = 0x20 ;uchar dec = BCD_Decimal(ch) ;printf("dec = %d\n",dec);while(1){;}return 0 ;}//BCD码转十进制函数，输入BC...

Delphi 函数集abs(x) 绝对值arctan(x) 反正切cos(x) 传回馀弦函数值exp(x) e的x次幂frac(x) 取小数部分int(x) 取整ln(x) 自然对数sin(x) 传回正弦函数值 sqr(x) x*xsqrt(x) 平方根其它pred(x) pred(D)=C, pred(true)=1;