摘要： procedure CreateShape(const _layer: TObject; const _ptg: TGIS_Point3D; const _type: TGIS_ShapeType; const _dim: TGIS_DimensionType);ParametersDescriptionconst _layer: TObjectTGIS_Layer which will own new shape const _ptg: TGIS_Point3D"starting" 3D of a new shape to be created; expected Vie 阅读全文

摘要： function GetPointOnLine(const _distance: Double; const _offset: Double; const _part: Integer): TGIS_Point; virtual; overload;Returnsfound point; if _distance Length, then point will be located after last point of the lineDescriptionCalculate a point located at _distance from the beginning and moved. 阅读全文

摘要： 方法原型：function LocateEx(const _ptg: TGIS_Point; const _prec: Double; const _uid: Integer; var _dist: Double; var _part: Integer; var _proj: TGIS_Point; const _visible: Boolean): TGIS_Shape;参数ParametersDescriptionconst_ptg:TGIS_Pointreferencepoint/searchingpoint/inalyer;ifthelayerhasbeenattachedtotheV 阅读全文

摘要： 函数名称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字符或特殊字符,将会... 阅读全文