摘要： 本例是顺着 GetMem 的例子往下做的: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Send... 阅读全文

摘要： 如果只为单个指针分配内存, 和 New 和 Dispose 是一样的; 与之不同的是: GetMem 可以申请连续的多个内存块. 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TFor... 阅读全文

摘要： 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TB... 阅读全文

摘要： 在 Delphi 中, 几乎所有的类型都有对应的指针类型, 譬如:Char PCharWord PWORDDouble PDoubleTPoint PPoint甚至一种类型对应这着几种指针类型, 譬如:Integer PInteger PINTWideChar PWideChar PWChar即使它没有定义, 我也可以直接使用一个类型的指针, 譬如声明一个整数的指针变量:var px: ^In... 阅读全文

摘要： 我原来以为 TList 可能是一个链表, 其实只是一个数组而已. 你知道它包含着多大一个数组吗? MaxListSize 个! MaxListSize 是 Delphi 在 Classes 单元定义的一个常量: MaxListSize = Maxint div 16; 也就是 134217727; 这也是 TList 的最大容量. 其中的 Maxint(2147483647) 也就是 2个G, 这... 阅读全文

摘要： 最近整理了一些函数列表, 算是一个宏观的安排; 等以后再碰到一些函数时就可以放置的更有次序一些. 我对函数与类的理解是: 函数是一个功能模块, 类是一个更强大的功能模块; Delphi 已经提供了很多的函数与类, 但很多时候我们却视而不见, 重新"刀耕火种". 曾记得网上有一个 Delphi 行家连续几年开发与升级一个"通配符"相关的函数, 终于有一天他说: 原来 Delphi 有这个函数. 也见... 阅读全文

摘要： procedure Insert( Substr: String; {要插入的字符串; 可以是常量} var Dest: String; {源字符串} Index: Integer {从第几个字符前插入} ); 举例: var ss,s: WideString; begin ss := '万一的博客'; s := ' Delphi '; Insert(... 阅读全文

摘要： procedure Delete( var S: String; {源字符串; 因为是 var 参数, 不可能是个常量} Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 } Count: Integer {要删除的字数} ); 举例: var s: string; begin s := 'Delphi 2007'; ... 阅读全文

摘要： function Copy( S: String; {字符串或动态数组} Index: Integer; {起始位置} Count: Integer {Copy 个数} ): String; {如果参数 S 是动态数组, 这里也应该返回动态数组} 举例: //从字符串中提取 var ss,s: string; begin ss := 'Code... 阅读全文

摘要： function Length( S: String {字符串; 也可以是数组} ): Integer; 举例: //string(在 Delphi 2007 下同 AnsiString) var s: string; i: Integer; begin s := 'Delphi'; i := Length(s); ShowMessage(IntToStr(i));... 阅读全文