function TDCompareLongint(aData1,aData2:pointer):integer;
var
L1:longint absolute aData1;
L2:longint absolute aData2;
begin
...
end;
解决方案 »
- QReport能不能做复选框控件
- 怎样将自己做的下载工具设为Ie默认下载工具
- 163邮箱中的东西能恢复吗?
- windows系统下的exe程序异常终止
- 这Sql语句怎么写?
- 一个小问题
- 客户端的RECV(..)的Tsocket参数怎么设置的!!!
- 请教:不连接其它数据库,我怎么在程序中自定义一个数据表 datatable,以存储二维数据?,且能绑定到dbgrid
- 求求求求求求求,delphi6.0的安装程序....
- 请问大伙三个问题(一如何创建空笔刷,vc下可用createstockbrush,二,如何用wm-gettext消息,因为地址没法转换成integer,三小弟考研,考什么方向的最好呢,谢谢回答
- delphi怎样连接Sqlite 增删改查
- IdHTTp 组件能否不发送 Accept-Encoding 这个报头?
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Edit1.Text := IntToStr(StrLen);
end;