汉字与区位码(1) - 转换函数 先上转换函数: -------------------------------------------------------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,...
在学习 资源文件 和 钩子函数 时, 经常用到当前模块句柄(HInstance)这个全局变量. 今天特别想知道, 它到底是在什么时候给赋值的. 输入 HInstance; "Ctrl+鼠标" 找到它的声明之处: SysInit 单元...
动态数组的使用 //例1: var StrArr: array of String; //动态数组定义时不与维数 begin SetLength(StrArr,6); //分配6个元素位置: 0-5 StrArr[0] := '万一'; //动态数组的下界是 0 ShowMessage(StrArr[0]); //分配空间...
非常遗憾 Delphi 的 case 语句不支持字符串, 但我觉得这也可能是基于效率的考量; 如果非要在 case 中使用字符串, 也不是不可以变通, 这里提供了五种方法. 本例效果图: 代码文件: --------...
with…do语句的用法 with…do语句用来指定一个块中的字段（记录的或者对象的）、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式： var Button: TButton; b...
这两天用webbrower写东西，有时候打开SSL加密网站时会出现”Invalid floating point operation.”的错误，上网搜了下，把解决方法贴上。 导致原因 在Delphi2011中需要通过浮点单位控制指令设置浮...
这段时间在用DELPHI做一个财务系统时发现每一行的小计取了两位小数后与用SQL的ROUND查询出来的不一样，在程序中是用FormatFloat('0.00',ItemSum)函数来取值的，再用DXDBGRID网格显视合计，最终...
1.with 对象名 do语句 只是为了减少输入的字符,不必每次重复名字,直接写变量 //************** procedure TForm1.Button1Click(Sender: TObject);//正常写法 begin edit1.text :='hello'; edit1.color:=clred; edit1.top:=1...
Delphi 7 简单语法 1. 简单语句（1）赋值语句形式： 变量 :＝ 表达式 赋值符号为“: =”。不论给属性还是给变量赋值，都是将右边的值赋给左边的属性或变量。 当将一个属性值、变量、...
本例通过存取结构, 慢慢引入了数组类型与指针的一些使用方法; 其中六个小例子的测试内容和结果都是一样的. -------------------------------------------------------------------------------- unit Unit1;...