![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_224,w_224)
【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 · 628 阅读 · 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 · 779 阅读 · 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 · 858 阅读 · 0 评论 -
System 单元下的公用函数目录
有简单提示的链接有效. 过程或函数名 分类 简单提示 Abs 绝对值 AcquireExceptionObject AddModuleUnloadProc Addr AllocMem转载 2013-10-15 09:55:22 · 537 阅读 · 0 评论