【Delphi System 单元】
系统相关函数
再创世纪
这个作者很懒,什么都没留下…
展开
-
System.Odd - 判断一个整数是不是奇数
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;转载 2013-10-15 09:54:54 · 630 阅读 · 0 评论 -
System.Delete - 从字符串中删除
procedure Delete( var S: String; {源字符串; 因为是 var 参数, 不可能是个常量} Index: Integer; {起始位置; 第一个字符的位置是 1, 起始位置不能小于 1 } Count: Integer {要删除的字数});举例:var s: string;begin s := 'Delphi转载 2013-10-15 09:57:15 · 780 阅读 · 0 评论 -
System.Copy - 从字符串或数组中复制
function Copy( S: String; {字符串或动态数组} Index: Integer; {起始位置} Count: Integer {Copy 个数}): String; {如果参数 S 是动态数组, 这里也应该返回动态数组}举例://从字符串中提取var ss,s: string;begin ss := 'Co转载 2013-10-15 09:57:47 · 859 阅读 · 0 评论 -
System 单元下的公用函数目录
有简单提示的链接有效.过程或函数名 分类 简单提示 Abs 绝对值AcquireExceptionObject AddModuleUnloadProc Addr AllocMem转载 2013-10-15 09:55:22 · 538 阅读 · 0 评论