以下代码可以看到 Int64Rec <--> Int64 procedure TForm1.Button2Click(Sender: TObject); var ii1,ii2,ii3:Int64;Hi,Lo:Cardinal;temp:Int64Rec; begin ii1 := ; Hi := Int64Rec(ii1).Hi; Lo := Int64Rec(ii1).Lo; ii2 := MakeROP4(Lo,Hi); // 这个函数没有什么实质的意义,只是为了表达 Hi + Lo =…

http://blog.163.com/jiandande3218@126/blog/static/74728469201132721428194/ Delphi中Tlist实例 2011-04-27 14:14:28|  分类: Delphi学习 |  标签:list  frmred  tform  frmblue  frmgreen  |举报|字号 订阅     下载LOFTER我的照片书  |     unit Unit1; interface uses  Windows, Message…

对于Object Pascal语言来说,最近一段时间最有意义的改进就是从Delphi3开始支持接口(interface),接口定义了能够与一个对象进行交互操作的一组过程和函数.对一个接口进行定义包含两个方面的内容,一方面是实现这个接口,另一方面是定义接口的客户.一个类能实现多个接口,即提供多个让客户用来控制对象的“表现方式”. 正如名字所表现的,一个接口就是对象和客户通信的接口.这个概念像C++中的PUREVIRTUAL类.实现接口的函数和过程是支持这个接口的类的工作. 在这里你将学到接口的语言…

procedure TForm1.Button1Click(Sender: TObject); var i1,i2:Integer; b:..] of Byte absolute i1; // b 在这里跟 i1 共用地址 begin i1 := ; i2 := MakeLong(MakeWord(b[],b[]),MakeWord(b[],b[])); // 在内存中i1其实是反过来存储, // 普通情况表达一个数字是“高位+低位”,而内存中是“低位+高位”的表达方式 // MakeXXX 函…

//判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; then abort ) then abort ) then abort; except on e:Exception do begin Application.MessageBox(PChar(E.Message), );//抛出异常信息 priMsg.ShowMsg('); //004=单位转换率设置错…

----------------------------------------------------------------------第一步,准备工作:预定义一个全局Win控件变量,以及一个精简化的Win控件类var CreationControl: TWinControl = nil; // 定义全局变量,用来表示每次刚创建的Win控件 TWinControl = class(TControl) private FDefWndProc: Pointer; // 记录原有的窗口过程,但只有…

Delphi 教程 系列书籍 网友(老帅)整理 001_<Delhpi6数据库设计思想与实践> 002_<Delphi6应用开发指南> 003_<Delphi6开发人员指南> 004_<Delphi6数据库开发典型实例> 005_<Delphi6组件大全> 006_<深入Delphi6 网络编程> 007_<Delphi6数据库深入编程技术> 008_<Delphi6程序设计教程> 009_<Delphi…

1.Copy 功能说明:该函数用于从字符串中复制指定范围中的字符.该函数有3个参数.第一个参数是数据源(即被复制的字符串),第二个参数是从字符串某一处开始复制,第三个参数是要复制字符串的长度(即个数).最后函数返回一个新的字符串(即是我们指定要复制的字符串内容). 参考实例: var S: String; MyStr: String; // 保存新的字符串 begin S := 'I Love China!'; //下面将获取I Love China中的“Love”字符串. MyStr := C…

简介: Debenu Quick PDF Library(PDF编程开发工具)提供一套全方位的 PDF API 函数,帮助您快速简便地处理 PDF 文件.从文档属性的基本操作到创建您自己的 PDF 查看器和 PDF 编辑器,这款软件满足您的所有需求.Quick PDF Library是一款供 PDF 开发人员使用的 SDK,功能强大.无需版税,其中包括超过500个函数,可用于 Delphi.C.C#.C++.ASP.VB6.VB.NET.VBScript.PHP.PowerBASIC 等,使用…

//Delphi 函数-IIF // 实例-ChkValue := IIF(TCheckBox(tsPzJz.Controls[i]).Checked, '); function IIF(lExp: boolean; vExp1, vExp2: variant): variant; overload; begin if lExp then Result := vExp1 else Result := vExp2; end;…