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

摘要： 经 MaxCool 的提议, 专门开辟了这个专栏! 记得, 我刚刚接触 Delphi 时, 在某论坛上请教了一个问题: 在 Delphi 的代码中, 为什么 end 后面有些是 ";" 号、有些是 "." 号、而有些后面什么也没有? 你知道我得到的答复是什么? 令人伤心的回复, 永远也不会忘记: "看书去!". 今天万一掌握了一点点基础知识, 所以说: "万一虽然浅薄, 但乐于助人; 有什么... 阅读全文

摘要： 现在准备建立 Items 数组属性; 在 public 区输入下面代码: property Items[Index: Integer]: Pointer; 执行 Shift+Ctrl+C 后的代码是: ... TMyList = class(TObject) private ... function GetItems(Index: Integer): Pointer;... 阅读全文

摘要： 总结目前 TMyList 已具备的功能(3 个方法、3 个属性): Add: 添加; Delete: 删除; Clear: 清空; Count: 元素总数; Capacity: 已存在的所有元素位置数; List: 指向核心数组的指针(只读). 举例测试如下: unit Unit1; interface uses Windows, Messages, SysUtils, Varia... 阅读全文

摘要： 举例: var i: Integer; b: Boolean; begin i := 11; b := Odd(i); {是奇数返回真} ShowMessage(BoolToStr(b)); {True} i := 12; b := Odd(i); ShowMessage(BoolToStr(b)); {False} end; ... 阅读全文

摘要： 举例: var d: Real; begin d := Sqr(6); ShowMessage(FloatToStr(d)); {36} end; var d: Real; begin d := Sqrt(81); ShowMessage(FloatToStr(d)); {9} end; System 单元下的公用函数目录 阅读全文

摘要： 举例:var i: Integer; d: Real;begin i := Trunc(1234.5678); {截取整数} ShowMessage(IntToStr(i)); {1234} i := Trunc(-1234.5678); ShowMessage(IntTo... 阅读全文

摘要： 举例: var d: Real; v: Variant; begin d := Abs(-1.2); ShowMessage(FloatToStr(d)); {1.2} v := '-100'; ShowMessage(v); {-100; v 是变体类型可以直接显示} v := Abs(v); ShowMessage(v); ... 阅读全文

摘要： 举例: var ss,s: string; begin ss := 'CodeGear Delphi 2007'; SetString(s,PChar(ss),4); ShowMessage(s); {Code} end; var s: string; arr: array[0..6] of Char; i: Integer; begin for i := 0... 阅读全文

摘要： 举例: var s: string; i: Real; j: Integer; begin s := '13.2435'; Val(s,i,j); ShowMessage(FloatToStr(i)); {13.2435} ShowMessage(IntToStr(j)); {返回 0 表示转换成功} s := '13_2435'; Val(s,i,... 阅读全文