完美者（wmzhe.com）网站以软件下载为基础，改版后的网站对功能性板块进行扩充，以期能够解决用户在软件使用过程中遇见的所有问题。网站新增了“软件百科”、“锦囊妙技”等频道，可以更好地对用户的软件使用全周期进行更加专业地服务。
伴侣Delphi小助手，顾名思义，这是一款功能强大的Delphi管理工具，它可以帮助管理Delphi的组件、专家、工具，快速切换组件，非常适合初学者使用。
伴侣Delphi小助手是一款完全免费的绿色软件，无须安装，点击.exe文件即可运行。用此软件可以查询DELPHI的各函数、过程、事件、命令的相关注解，可以轻松管理Delphi的组件、专家、工具，快速切换组件，它绝对是一款优秀的Delphi伴侣工具。
管理方便，可以随时加载/卸载需要的组件/专家/工具。
只加载必须的组件，运行速度非常快。
一但Delphi出现故障，无需重新安装，只要简单的一二个步骤就能恢复。
"锦囊妙技"栏目是聚合全网软件使用的技巧或者软件使用过程中各种问题的解答类文章，栏目设立伊始，小编欢迎各路软件大神朋友们踊跃投稿，在完美者平台分享大家的独门技巧。
本站文章素材来源于网络，大部分文章作者名称佚失，为了更利于用户阅读和使用，根据需要进行了重新排版和部分改编，本站收录文章只是以帮助用户解决实际问题为目的，如有版权问题请联系小编修改或删除，谢谢合作。
软件大小：486.76 KB
打开串口错误，你检查串口是否存在或者已经被别的程序占用了串口。
procedure TForm1.exsql(strsql:string); begin adoquery1.Close; adoquery1.SQL.Clear; adoquery1.SQL.Add(strsql); adoquery1.ExecSQL; end;procedure TForm1.Button1Click(Sender: TObject);var sql:string;begin sql:='insert into b.dbo.b1(IDnew,USERINFOnew,GROUPnew)select ID,USERINFO,GROUP from a,dbo.a1'; exsql(sql);end;
function TrasNum1(num:Cardinal):Cardinal;beginresult := (num and $000000FF) shl 24 + (num and $0000FF00) shl 8+ (num and $00FF0000 ) shr 8 + (num and $FF000000) shr 24;end;function TrasNum(num:Cardinal):Cardinal;var ostr:string; nstr:string; tmp:string; i:integer;begin ostr:= IntToHex(num,2); for i:=Length(ostr) downto 1 do begin if i mod 2=0 then begin tmp:= tmp+ostr[i]; end else begin tmp:= ostr[i]+tmp; nstr:= nstr+tmp; tmp:=''; end; end; Result:= StrToInt('$'+nstr);end;输出结果 都是正确的 showmessage(inttostr(TrasNum(TrasNum(1234567890)))); showmessage(inttostr(TrasNum1(TrasNum(1234567890)))); showmessage(inttostr(TrasNum(TrasNum(2222222222)))); showmessage(inttostr(TrasNum1(TrasNum(2222222222))));
第一个 table_entry = packed record entry_type:Cardinal; case Integer of 0:( value_type:Cardinal; value_data:^Byte; value_data_size::integer ); 1:( value_descriptor:Cardinal entry_guid:^Byte; entry_guid_size:integer ); end; 第二个太长了，看的眼花了。 uint64_t是无符号64位整数，delphi里面好像没有这样的类型，最接近了是INT64,不过是带符号的。packed不用也应该没问题的。
