System.StringOfChar - 反复字符
摘要：举例: 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 ...
阅读全文
posted @
2008-03-29 22:23
万一
阅读(4291)
推荐(0) 编辑
System.Pos - 搜索子串的位置
摘要：举例: 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(...
阅读全文
posted @
2008-03-29 22:21
万一
阅读(3828)
推荐(0) 编辑
System.Concat - 连接字符串
摘要：举例: var s: string; begin s := Concat('CodeGear', #32 ,'Delphi', #32 ,'2007'); ShowMessage(s); {CodeGear Delphi 2007} end; System 单元下的公用函数目录
阅读全文
posted @
2008-03-29 22:17
万一
阅读(3128)
推荐(1) 编辑
System.Move - 移动内存块
摘要：举例: var Source,Dest: string; begin Source := '123456789'; Dest := '---------'; Move(Source[5], Dest[3], 4); ShowMessage(Dest); {--5678---} end; System 单元下的公用函数目录
阅读全文
posted @
2008-03-27 23:18
万一
阅读(7187)
推荐(0) 编辑
System.ReallocMem - 重新申请内存
摘要：本例是顺着 GetMem 的例子往下做的: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Send...
阅读全文
posted @
2008-03-27 22:39
万一
阅读(4551)
推荐(0) 编辑
System.GetMem、System.FreeMem - 申请和释放内存
摘要：如果只为单个指针分配内存, 和 New 和 Dispose 是一样的; 与之不同的是: GetMem 可以申请连续的多个内存块. 举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TFor...
阅读全文
posted @
2008-03-27 18:09
万一
阅读(10033)
推荐(2) 编辑
System.New、System.Dispose - 为某个指针申请和释放内存
摘要：举例: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TB...
阅读全文
posted @
2008-03-27 17:41
万一
阅读(4920)
推荐(0) 编辑
System.Insert - 插入字符串
摘要：procedure Insert( Substr: String; {要插入的字符串; 可以是常量} var Dest: String; {源字符串} Index: Integer {从第几个字符前插入} ); 举例: var ss,s: WideString; begin ss := '万一的博客'; s := ' Delphi '; Insert(...
阅读全文
posted @
2008-03-25 23:19
万一
阅读(5566)
推荐(1) 编辑
System.Delete - 从字符串中删除
摘要：procedure Delete( var S: String; {源字符串; 因为是 var 参数, 不可能是个常量} Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 } Count: Integer {要删除的字数} ); 举例: var s: string; begin s := 'Delphi 2007'; ...
阅读全文
posted @
2008-03-25 23:03
万一
阅读(4499)
推荐(0) 编辑
System.Copy - 从字符串或数组中复制
摘要：function Copy( S: String; {字符串或动态数组} Index: Integer; {起始位置} Count: Integer {Copy 个数} ): String; {如果参数 S 是动态数组, 这里也应该返回动态数组} 举例: //从字符串中提取 var ss,s: string; begin ss := 'Code...
阅读全文
posted @
2008-03-25 14:03
万一
阅读(8092)
推荐(0) 编辑
System.Length - 获取字符串或数组的长度
摘要：function Length( S: String {字符串; 也可以是数组} ): Integer; 举例: //string(在 Delphi 2007 下同 AnsiString) var s: string; i: Integer; begin s := 'Delphi'; i := Length(s); ShowMessage(IntToStr(i));...
阅读全文
posted @
2008-03-24 22:49
万一
阅读(6692)
推荐(1) 编辑
System 单元下的公用函数目录
摘要：有简单提示的链接有效. 过程或函数名 分类 简单提示 Abs绝对值 AcquireExceptionObject AddModuleUnloadProc Addr AllocMem AnsiToUtf8 Append ArcTan Assert Assign Assigned AssignFile AttemptToUseSharedMemoryManager BeginThr...
阅读全文
posted @
2008-03-21 17:30
万一
阅读(6777)
推荐(0) 编辑
Addr 函数 - 获取对象指针
摘要：procedure TForm1.FormCreate(Sender: TObject);var Str: string; pStr: PString;begin Str := 'Delphi 2007'; pStr := @Str; {用 @ 获取指针} ShowMessage(pStr^); {Delphi 2007} Str := 'Delphi 2008'; pStr := ...
阅读全文
posted @
2007-12-31 21:23
万一
阅读(5186)
推荐(0) 编辑
AbstractErrorProc - 抽象错误处理的指针
摘要：unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type {父类} TBase = class procedure proc; virtual; abstract; {抽象方法} end; {子类} ...
阅读全文
posted @
2007-12-31 18:16
万一
阅读(4036)
推荐(0) 编辑
System 中的数学函数
摘要：此页已更新到: System 单元下的公用函数目录//绝对值: Absvar 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);...
阅读全文
posted @
2007-12-28 14:57
万一
阅读(5488)
推荐(0) 编辑
管理
