S seeok Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-14 #1 请教一下,如何在delphi中将得到的BCD码转换为整形或字符串?
R royal1442 Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-14 #2 uses FMTBcd; 里面有以下的，和其它的函数： function BcdToStr(const Bcd: TBcd): string overload; function BcdToDouble(const Bcd: TBcd): Double; function BcdToInteger(const Bcd: TBcd Truncate: Boolean = False): Integer;
uses FMTBcd; 里面有以下的，和其它的函数： function BcdToStr(const Bcd: TBcd): string overload; function BcdToDouble(const Bcd: TBcd): Double; function BcdToInteger(const Bcd: TBcd Truncate: Boolean = False): Integer;
S seeok Unregistered / Unconfirmed GUEST, unregistred user! 2006-01-14 #3 假如通过Socket传过来一个应答,只知道前面10个字节表示一个BCD码, 假如应答为S,那么是否可以这样写: var aa:Tbcd; ss:string; begin ZeroMemory(@aa,10); Move(s[1], aa, 10); setlength(ss,10); ss := BcdTostr(aa) end; 这样写对吗?
假如通过Socket传过来一个应答,只知道前面10个字节表示一个BCD码, 假如应答为S,那么是否可以这样写: var aa:Tbcd; ss:string; begin ZeroMemory(@aa,10); Move(s[1], aa, 10); setlength(ss,10); ss := BcdTostr(aa) end; 这样写对吗?
K kaoleoloi Unregistered / Unconfirmed GUEST, unregistred user! 2006-02-11 #6 帮顶！ ╭=========================================╮ 80G海量源代码,控件，书籍全免费狂下不停！ http://www.source520.com ╰=========================================╯
帮顶！ ╭=========================================╮ 80G海量源代码,控件，书籍全免费狂下不停！ http://www.source520.com ╰=========================================╯
