最近在Delphi下写软件,需要将数据转换为BCD码和将BCD码转换为其它数据类型,从网上搜索了一下,没有发现好的函数,于是就想自定义函数来完成BCD与其它格式的数据转换功能.但最终没有动手写,先查查Delphi的帮助吧.结果一查才发现Delphi还真的直接支持BCD码的数据.现将Delphi对BCD码的支持资料大致介绍一番: 首先,Delphi支持的BCD码的数据类型名为TBCD,它的定义如下: type TBcd = packed record Precision: Byte; …
取得网页的源码内容的函数以及调用方法供大家参考: program geturl; uses wininet, windows; //取网页内容 function StrPas(const Str: PChar): string; begin Result := Str; end; function GetWebPage(const Url: string):string; var Session, HttpFile:HINTERNET; szSizeBuffer:Pointer; dwLengt…
#include <stdio.h> #define N 8 //这里你要求是8位 int main(int argc, const char * argv[]) { int binary[8];//用于存放最后取得的补码 int a=0;//要处理的数值 int a1=0;//保存a的值 int m=0;//用于存放临时的数值 printf("请输入要转换成二进制补码的数的值:\n"); scanf("%d",&a); a1=a; if (a=…
