GIS软件开发复习资料

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