摘要： 举例: var s: string; begin Str(123, s); ShowMessage(s); {123} Str(PI, s); ShowMessage(s); {3.14159265358979E+0000} Str(PI:0:2, s); ShowMessage(s); {3.14} Str(9.1:1:3, s); ShowMe... 阅读全文

摘要： 举例: var s: array[0..9] of Char; begin FillChar(s,SizeOf(s),'a'); ShowMessage(s); {aaaaaaaaaa} end; var arr: array[0..3] of Word; i: Integer; begin FillChar(arr, Length(arr) * SizeOf(Wor... 阅读全文

摘要： 举例: var s: string; begin s := StringOfChar('G', 5); ShowMessage(s); {GGGGG} end; var s: string; begin s := StringOfChar(#65, 5); ShowMessage(s); {AAAAA} end; var s: string; begin ... 阅读全文

摘要： 举例: var ss,s: string; i: Integer; begin ss := 'CodeGear Delphi 2007'; s := 'Gear'; i := Pos(s,ss); ShowMessage(IntToStr(i)); {5} s := '2008'; i := Pos(s,ss); ShowMessage(IntToStr(... 阅读全文

摘要： 举例: var s: string; begin s := Concat('CodeGear', #32 ,'Delphi', #32 ,'2007'); ShowMessage(s); {CodeGear Delphi 2007} end; System 单元下的公用函数目录 阅读全文

摘要： 实现 TMyList.Add 函数. TList 中的 Add 函数用到了一个 Grow 方法, 它的原理是元素越多就为以后准备更多内存, 我们这里省略为预留 4 个元素的内存; TList 中的 Add 函数还同时触动了一个 Notify 方法, 这应该是为它们的子类准备的(估计是用它来激发一个事件的), 也不要了. function TMyList.Add(Item: Pointer): ... 阅读全文

摘要： 先来实现 TMyList.SetCapacity. 马上会想到下面代码: procedure TMyList.SetCapacity(const Value: Integer); begin if FCapacity Value then FCapacity := Value; end; 但这样是远远不够的, 关键是需要分配内存, 像这样: ReallocMem(数组的起点... 阅读全文

摘要： 现在准备一步步地模拟 TList 类, 建立一个自己的 TMyList. 首先, 这个类中应该包括前面提到的那个 Pointer 数组(TPointerList)的指针(PPointerList): TMyList = class(TObject) FList: PPointerList; end; 既然是一个列表, 应该有 Count 字段: TMyList = class(TO... 阅读全文

摘要： //例1: begin raise Exception.Create('抛出异常'); end; //例2: begin raise Exception.CreateFmt('%s %d', ['错误代码:', 999]); end; //例3: var exc: Exception; begin exc := Exception.Create('发现异常'); ra... 阅读全文

摘要： 举例: var Source,Dest: string; begin Source := '123456789'; Dest := '---------'; Move(Source[5], Dest[3], 4); ShowMessage(Dest); {--5678---} end; System 单元下的公用函数目录 阅读全文