2014年3月25日
摘要：
函数名称DateTimeToXMLString所在单元GisDefs函数原型 function DateTimeToXMLString(_dtm: TDateTime; const _idt: Integer; const _btz: Boolean): String;函数说明 转换TDateTime 成为 native XML format (ISO 8601) 字符串. 如果_idt=3 ,返回的格式是 'yyyy-MM-ddTHH:mm:ss.fffffff' 如果_btz = True 且 时区信息被会添加到返回值中,注意如果_idt<=0 则忽略此参数. 阅读全文
摘要：
函数名称CreateMSJET所在单元GisDefs函数原型 function CreateMSJET(const _path: String): String; 函数说明 根据指定的全路径,创建一个空的Access数据库,返回值是ADO 连接字符串.举例说明1 var2 s : string;3 begin44 s := CreateMSJET('c:\hhit.mdb');// 将在C盘根目录下,创建一个名称为hhit.mdb 的数据库文件.5 ShowMessage(s); // s = 'Provider=Microsoft.Jet.OLEDB.4.0... 阅读全文
摘要：
过程名称ColorToHSL所在单元GisDefs过程原型 procedure ColorToHSL(const _color: TColor; var _h: Real; var _s: Real; var _l: Real); 过程说明 根据TColor 转换至 HSL颜色. HSL即色相、饱和度、亮度（英语：Hue, Saturation, Lightness），又称HLS。 举例说明 1 var 2 h, s, l: Real; 3 c: TColor; 4 begin 5 c := RGBToColor(127,255,127); 6 ... 阅读全文
摘要：
函数名称CheckFileWriteAccess所在单元GisDefs函数原型 1 functionCheckFileWriteAccess(const_file:String): Boolean; 2 function CheckFileWriteAccessEx(const _file: String; const _plain: Boolean; const _backup: Boolean; const _temp: Boolean): Boolean; 函数说明 对于1: 如果_file 是一个有效的全路径,而且文件不是设为只读状态,也没有被其他程序使用,代表... 阅读全文
摘要：
函数名称CheckDir所在单元GisDefs函数原型function CheckDir(const _path: String): Boolean; 函数说明 如果_path 是一个有效的路径,返回True,否则返回 False. 举例说明1 if CheckDir('c:\') then2 ShowMessage('路径有效'); // 可以执行到此3 4 if CheckDir('c:\install.txe') then5 begin6 end7 else8 ShowMessage('路径无效'); // 可以执行到此 阅读全文
摘要：
函数名称ChangeDir所在单元GisDefs函数原型function ChangeDir(const _path: String): String; 函数说明 如果_path 是一个有效的全路径,返回 _path 所在的路径,并将该路径设为当前路径. 如果_path 是一个无效的(文件不存在或者是一个URL),返回空字符串,并且保持现有路径不变. 总之,返回前一个文件所在路径或空字符串. 举例说明// 假设你的程序在 D:\ 执行, 存在 C:\install.txt 这个文件Self.Caption := ChangeDir('c:\instal... 阅读全文
摘要：
函数名称CanonicalSQLName所在单元 GisDefs函数原型 function CanonicalSQLName(const _name: String; const _template: String): String;overload; function CanonicalSQLName(const _name: String): String;overload;函数说明 正则化命名函数,返回经过正则化后的命名字符串[这个字符串中只会出现字母,数字,下划线和_template 的组合]. 如果_name 中出现空格,非ASCII字符或特殊字符,将会... 阅读全文
摘要：
过程名称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 阅读全文
摘要：
函数名称Copy所在单元 System函数原型1functionCopy ( Source : string; StartChar, Count : Integer ) : string;2functionCopy( Source : array; StartIndex, Count : Integer ) : array;函数功能 根据指定起始位置和数量,返回一个字符串的子串或者一个数组的子数组. 函数备注第一个参数是一个字符串或一个动态数组，第二个参数是开始截取的索引序号，第三个参数是截取的元素的数量.举例如下 1 var2 s : string;3 be... 阅读全文
摘要：
函数名称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 阅读全文
摘要：
函数名称CompareText所在单元System.SysUtils函数原型function CompareText(const S1, S2: string): Integer;函数功能比较两个字符串的大小，返回值为 -1 [ 当 S1S2 时]. 比较规则：不区分大小写；两个字符串的字符依次从左至右逐一比较，大小取决于字符在ASCII表中的序号，序号大的对应的字符为大。函数备注CompareText不建议用。建议使用AnsiCompareText函数，功能和使用方法与 CompareText类似。举例如下 1 var 2 s1, s2: string; 3 i... 阅读全文
摘要：
函数名称CompareStr所在单元System.SysUtils函数原型function CompareStr(const S1, S2: string): Integer;函数功能比较两个字符串的大小，返回值为 -1 [ 当 S1S2 时]. 比较规则：区分大小写；两个字符串的字符依次从左至右逐一比较，大小取决于字符在ASCII表中的序号，序号大的对应的字符为大。函数备注CompareStr 已被弃用。建议使用AnsiCompareStr函数，功能和使用方法与 CompareStr类似。举例如下 var s1, s2: string; iResult: Integer;b... 阅读全文
摘要：
函数名称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类似。 阅读全文
摘要：
函数名称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类似。 阅读全文