摘要：
//先糊涂一下 var b: Boolean; begin b := AnsiResemblesText('abc','apc'); ShowMessage(BoolToStr(b)); {True} b := AnsiResemblesText('abc','agc'); ShowMessage(BoolToStr(b)); {False} b := AnsiRes... 阅读全文
posted @ 2007-12-28 22:12
万一
阅读(5053)
评论(2)
推荐(0)
摘要：
alphal - 内部测试版 beta - 外部测试版 demo - 演示版 Enhance - 增强版或者加强版,属于正式版 Free - 自由版 Full version - 完全版, - 属于正式版 shareware - 共享版 Release - 发行版, - 有时间限制 Upgrade - 升级版 Retail - 零售版 Enterprise ... 阅读全文
posted @ 2007-12-28 21:11
万一
阅读(2516)
评论(0)
推荐(0)
摘要：
//从左右两端提取指定数目的字符串: AnsiLeftStr、AnsiRightStr var ss,s: AnsiString; begin ss := 'abcdefg'; s := AnsiLeftStr(ss, 2); ShowMessage(s); {ab} s := AnsiRightStr(ss, 2); ShowMessage(s); {fg} end... 阅读全文
posted @ 2007-12-28 17:02
万一
阅读(7982)
评论(0)
推荐(0)
摘要：
//对比字符串是不是一样: AnsiSameStr、AnsiSameText var ss,s: AnsiString; b: Boolean; begin ss := 'abc'; s := 'ABC'; b := AnsiSameStr(ss,s); {区分大小写} ShowMessage(BoolToStr(b)); {False} b := Ansi... 阅读全文
posted @ 2007-12-28 16:13
万一
阅读(4264)
评论(0)
推荐(1)
摘要：
此页已更新到: 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
万一
阅读(5506)
评论(0)
推荐(0)
摘要：
//整除与余数: DivMod const a = 11; b = 3; var x,y: Word; begin ShowMessage(IntToStr(a div b)); {整除得 3} ShowMessage(IntToStr(a mod b)); {余数 2} DivMod(a,b,x,y); ShowMessage(IntToStr(x)); {3} ... 阅读全文
posted @ 2007-12-28 13:08
万一
阅读(6661)
评论(1)
推荐(0)
摘要：
//返回整数的四种情况const a = 1.8; b = -1.8;begin {返回比值大的最小整数:} ShowMessage(IntToStr(Ceil(1.8)) + ',' + IntToStr(Ceil(-1.8))); {返回：2,-1} {返回比值小的最大整数:} ... 阅读全文
posted @ 2007-12-28 13:04
万一
阅读(3915)
评论(4)
推荐(0)
浙公网安备 33010602011771号