2014年6月26日

摘要: 1、在源字符串Src中查找子串S,返回Src中S之前的部分Function Before( Src,S:string ): string ;Var F: Word ;begin if Src = '' then Before := ''; F := Pos(S, Src); if ... 阅读全文
posted @ 2014-06-26 10:57 LuckFarmer 阅读(3266) 评论(0) 推荐(0)
摘要: 函数原型:Unit Systemfunction Pos(Substr: string; S: string): Integer;说明:Substr : 子字符串.S : 母字符串. 寻找子字符串在母字符串中的位置(从下标 1 开始)返回值:返回子字符串在母字符串中的位置,未找到返回 0 阅读全文
posted @ 2014-06-26 10:35 LuckFarmer 阅读(365) 评论(0) 推荐(0)
摘要: 函数原型:Unit Systemfunction Copy(S: string; Index, Count: Integer): string;说明:S : 字符串. Indexd : 从第几位开始拷贝,从1开始. Count : 总共要拷贝几位. 从母字符串拷贝至另一个字符串返回值:结果返回新字符... 阅读全文
posted @ 2014-06-26 10:31 LuckFarmer 阅读(218) 评论(0) 推荐(0)

导航