2014年3月25日
摘要: 过程名称Delete所在单元System过程原型procedureDelete ( var Source : string; StartChar : Integer; Count : Integer ) ;过程功能 删除一个字符串中指定位置和数量的字符函数备注第一个参数是一个字符串,第二个参数是开始删除的索引序号,第三个参数是删除的字符的数量.举例如下var s: string;begin s := 'http://www.hhit.edu.cn'; Delete(s,1,7); ShowMessage(s); // s = 'www.hhit.edu.cn'e 阅读全文
posted @ 2014-03-25 16:03 知真道 阅读(881) 评论(0) 推荐(0) 编辑
摘要: 函数名称Copy所在单元 System函数原型1functionCopy ( Source : string; StartChar, Count : Integer ) : string;2functionCopy( Source : array; StartIndex, Count : Integer ) : array;函数功能 根据指定起始位置和数量,返回一个字符串的子串或者一个数组的子数组. 函数备注第一个参数是一个字符串或一个动态数组,第二个参数是开始截取的索引序号,第三个参数是截取的元素的数量.举例如下 1 var2 s : string;3 be... 阅读全文
posted @ 2014-03-25 15:53 知真道 阅读(10955) 评论(0) 推荐(0) 编辑
摘要: 函数名称Concat所在单元System函数原型functionConcat ( const String1 {,String2 ...} : string ) : string;函数功能 返回由将多个字符串连接成的一个字符串.函数备注类似于多个字符串直接用 “ + ” 相加的操作,但是效率比较直接加高。举例如下 1 var2 s: string;3 begin4 s := Concat('www.', 'hhit.', 'edu.' + 'cn');5 ShowMessage(s); // s = 'www.hhit.e 阅读全文
posted @ 2014-03-25 15:34 知真道 阅读(1099) 评论(0) 推荐(0) 编辑
摘要: 函数名称CompareText所在单元System.SysUtils函数原型function CompareText(const S1, S2: string): Integer;函数功能比较两个字符串的大小,返回值为 -1 [ 当 S1S2 时]. 比较规则:不区分大小写;两个字符串的字符依次从左至右逐一比较,大小取决于字符在ASCII表中的序号,序号大的对应的字符为大。函数备注CompareText不建议用。建议使用AnsiCompareText函数,功能和使用方法与 CompareText类似。举例如下 1 var 2 s1, s2: string; 3 i... 阅读全文
posted @ 2014-03-25 15:23 知真道 阅读(5053) 评论(0) 推荐(1) 编辑
摘要: 函数名称CompareStr所在单元System.SysUtils函数原型function CompareStr(const S1, S2: string): Integer;函数功能比较两个字符串的大小,返回值为 -1 [ 当 S1S2 时]. 比较规则:区分大小写;两个字符串的字符依次从左至右逐一比较,大小取决于字符在ASCII表中的序号,序号大的对应的字符为大。函数备注CompareStr 已被弃用。建议使用AnsiCompareStr函数,功能和使用方法与 CompareStr类似。举例如下 var s1, s2: string; iResult: Integer;b... 阅读全文
posted @ 2014-03-25 15:09 知真道 阅读(3798) 评论(0) 推荐(0) 编辑
摘要: 函数名称LowerCase所在单元System.SysUtils函数原型function LowerCase(const S: string): string;函数功能将字符串中所有的大写字母转换为小写字母.举例如下 1 var2 s: string;3 begin4 s := 'WWW.HHIT.EDU.CN';5 s := LowerCase(s);6 // s = 'www.hhit.edu.cn';7 end;函数备注 LowerCase 已被弃用。 建议使用AnsiLowerCase 函数,功能和使用方法与LowerCase类似。 阅读全文
posted @ 2014-03-25 14:36 知真道 阅读(1673) 评论(0) 推荐(0) 编辑
摘要: 函数名称UpperCase所在单元System.SysUtils函数原型function UpperCase(const S: string): string;函数功能将字符串中所有的小写字母转换为大写字母.举例如下 var s: string;begin s := 'www.hhit.edu.cn'; s := UpperCase(s); // s = 'WWW.HHIT.EDU.CN'end;函数备注UpperCase 已被弃用。建议使用AnsiUpperCase函数,功能和使用方法与 UpperCase类似。 阅读全文
posted @ 2014-03-25 13:41 知真道 阅读(3503) 评论(0) 推荐(0) 编辑
  2010年6月10日
摘要: 为了是地图更加简洁 和 减小地图负载 ,达到分级显示某些图层的效果,应该为每一个图层设置 合理的 可见比例尺范围。[代码] 阅读全文
posted @ 2010-06-10 00:02 知真道 阅读(375) 评论(0) 推荐(0) 编辑
  2010年6月9日
摘要: 选择[代码]根据图层名称选择图层的函数[代码]图层移动[代码]图层隐藏[代码]图层卸载[代码] 阅读全文
posted @ 2010-06-09 23:55 知真道 阅读(410) 评论(0) 推荐(0) 编辑
摘要: 注意 : 本代码中 MapControl 控件的 Name 属性 是 aeMapMain 别忘了在单元引用部分添加 esriGeoDatabase_TLB, esriCarto_TLB, esriDataSourcesFile_TLB 和 StrUtils1 使用常规方法加载地图[代码]2.使用简单方法加载地图代码Code highlighting produced by Actipro Code... 阅读全文
posted @ 2010-06-09 00:16 知真道 阅读(1140) 评论(1) 推荐(0) 编辑