1221
社区成员
关于的Delphi算法的问题
各位大侠：
帮帮小妹吧！在Delphi中如何把BCD码转化成ASCLL码？（写个函数），我现在急啊！帮忙了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
帮帮小妹吧！在Delphi中如何把BCD码转化成ASCLL码？（写个函数），我现在急啊！帮忙了！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！
...全文
当前发帖距今超过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;
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;
- 打赏
- 举报
几种Delphi压缩算法.rar 收集了几种Delphi压缩算法，因为网上见到的代码大部分为C语言实现的程序，给delphi的爱好者们使用和研究压缩算法带来极大不便。为改变这一面貌，特收集了一些算法奉献给delphi的爱好者们。其中lz77.pas和arith.pas...
Delphi AES 算法 本组代码采用标准AES算法（基础算法引用ElAES.pas，感谢作者），代码支持AES/ECB/PKCS5Padding、AES/CBC/PKCS5Padding 密钥长度128/192/256bit，密钥0填充，Delphi与JAVA互相加解密。加密前Delphi与JAVA统一字符编码...
Delphi算法 这就是双线性内插值法。双线性内插值法计算量大，但缩放后图像质量高，不会出现像素值不连续的的情况。由于双线性插值具有低通滤波器的性质，使高频分量受损，所以可能会使图像轮廓在一定程度上变得模糊
Delphi加密算法实例大全 Dephi加解密源码大全【源码+实例】 2DES、3DES、3DES3、AES、BASE64、BLOWFISH、CRC、DES、MD5、RSA、SHA算法源码。Delphi的数据加密技术演示实例：文本加密解密源代码，随便在文本框中输入一段字符，可显示文本加密...
Delphi 算法与数据结构 Delphi 算法与数据结构 相比其他编程语言, Delphi 的名著可不算多呀; Julian Bucknall[巴克纳尔(美)] 所著的《Delphi 算法与数据结构》就是不可多得的一本! 算法与数据结构是早就该学得, 能有幸同时接近大师的思想,...
Delphi关于BlowFish算法的软件注册源代码.rar Delphi关于BlowFish算法的软件注册源代码，现在标准算法被多数开发者使用，很容易被破解出来。BlowFish的变形算法源码为您提供软件安全检测和软件的加密解决方案。该代码演示及展现了如何调用BlowFish方法加密解密，...
基于Delphi的Base64加密算法演示代码 内容索引:Delphi源码,算法相关,加密,算法,Base64 由ksaiy制作的Base64加密算法演示程序源代码，此算法为标准的Base64算法，可以根据自己需要进行变形。
Delphi常用数值算法集 PDF+源码 《Delphi 常用数值算法集》的PDF文件和附带光盘，其中有上百种常用的数学算法：方程的求解、微积分、插值、曲线拟合、函数逼近、对称值问题等等，包含了源代码和程序运行演示，非常珍贵，献给各位需要的同学。
Delphi与Java互通AES加解密算法.zip Delphi与Java互通AES加解密互通算法，适应delphi所有版本，最高到10.3版本。AES所有参数算法模式、补码、结果编码完整。你值得拥有！
