下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、独立值专题图 procedure TForm1.Button1Click(Sender: TObject); var currentlayer :imomaplayer; myvaluerenderer :imovaluemaprenderer; currentrecord :imorecordset; str :imostrings; i :integer; begin myvaluerenderer :=covaluemaprenderer.create; str :=costrings.Create; currentlayer :=comaplayer.create; currentla
2、yer :=imomaplayer(mainmap.layers.item(country); currentlayer.Renderer :=myvaluerenderer; currentrecord :=region while not currentrecord.EOF do begin str.Add(currentrecord.fields.Item(region).ValueAsString); currentrecord.MoveNext; end; myvaluerenderer.ValueCount :=str.Count; for i := 0 to str.Count-
3、 1 do begin myvaluerenderer.Valuei :=str.Item(i); end; mainmap.refresh; end. 获取图层名 function getlayername(map :tmap):Tstrings; var i :integer; layernames :Tstrings; begin layernames :=Tstringlist.Create; for i := 0 to map.Layers.Count - 1 do begin layernames.Add(imomaplayer(map.Layers.Item(i).Name);
4、end; result :=layernames; end; 获取字段名 function get(map :tmap;layername :string):Tstrings; var currentrecordset :imorecordset; currenttabledesc :imotabledesc; i :integer; :tstrings; begin :=tstringlist.create; currentrecordset :=imomaplayer(map.Layers.Item(layername).Records; currenttabledesc :=curren
5、trecordset.TableDesc; for i :=0 to currenttabledesc.FieldCount - 1 do begin (currenttabledesc.FieldNamei); end; result := ; end; 获取值 function get(map :tmap;layername:string; :string):Tstrings; var currentrecord :imorecordset; currentvalues :string; values :Tstrings; begin values :=Tstringlist.Create; currentrecord :=imomaplayer(map.Layers.Item(layername).Records; while not currentrecord.EOF do begin currentvalues :=currentrecord.fields.Item().ValueAsString; /if allvalue.IndexOf(currentvalues) 0 then close else begin ShowMessage(密码不正确,请重新输入。 ); edtPassword.Text := ; edtPassword.SetFocus ; en
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 陶瓷砖尺寸与平整度检测考核试卷
- 软件测试与质量控制考核试卷
- 保险公估在医疗保险赔付流程的优化考核试卷
- 卫生器具市场细分与目标消费群体分析考核试卷
- 餐饮业餐厅危机管理考核试卷
- 设计案例研究与灵感激发考核试卷
- 私募股权投资物流行业投资机会考核试卷
- 2024年度辽宁省安全员之A证(企业负责人)练习题及答案
- 2024年度湖南省安全员之C证(专职安全员)题库附答案(基础题)
- 2024年度甘肃省安全员之A证(企业负责人)提升训练试卷B卷附答案
- 《将本土美食文化融入幼儿园课程的实践》 论文
- 新生儿产伤讨论制度
- 重力与弹力物理课件
- 2022-2023学年广西贺州市接力版五年级上册期中考试英语试卷(解析版)
- 建设项目施工招投标阶段造价控制存在的问题及改进措施实用文档
- 评选最美传统文化代言人:二年级下册语文第三单元学习任务群设计
- GB/T 41428.1-2022外科植入物骨关节假体第1部分:基于膝关节CT数据生成参数化3D骨模型的流程
- GB/T 40354-2021铁质不粘锅
- GB/T 29335-2012爪式旋开盖
- GB/T 12496.1-1999木质活性炭试验方法表观密度的测定
- GB 13623-2003铝压力锅安全及性能要求
评论
0/150
提交评论