1、GIS软件开发复习资料GIS软件开发复习资料独立值专题图procedure TForm1.Button1Click(Sender: TObject);var currentlayer :imomaplayer; myvaluerenderer :imovaluemaprenderer; currentrecord :imorecordset; str :imostrings; i :integer;begin myvaluerenderer :=covaluemaprenderer.create; str :=costrings.Create; currentlayer :=comaplaye
2、r.create; currentlayer :=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
3、 := 0 to str.Count- 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.
4、Item(i).Name); end; result :=layernames;end;获取字段名function getfilename(map :tmap;layername :string):Tstrings;var currentrecordset :imorecordset; currenttabledesc :imotabledesc; i :integer; filenames :tstrings;begin filenames :=tstringlist.create; currentrecordset :=imomaplayer(map.Layers.Item(layerna
5、me).Records; currenttabledesc :=currentrecordset.TableDesc; for i :=0 to currenttabledesc.FieldCount - 1 do begin filenames.Add(currenttabledesc.FieldNamei); end; result := filenames;end;获取值function getfilevalue(map :tmap;layername:string;filedname :string):Tstrings;var currentrecord :imorecordset;
6、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(filedname).ValueAsString; /if allvalue.IndexOf(currentvalues) 0 then close else begin ShowMessage(密码不正确,请重新输入。); edtPassword.Text := ; edtPassword.SetFocus ; end; end;end;procedure TForm1.btExitClick(Sender: TObject);begin Application.Terminate ; end;