GIS软件开发复习资料

1、GIS软件开发复习资料独立值专题图procedureTForml.Butt on 1Click(Se nder:TObject);varcurre ntlayer :imomaplayer;myvaluere nderer :imovaluemapre nderer;curre ntrecord :imorecordse t;str :imostri ngs;i :in teger;begi nmyvaluere nderer :=covaluemapre nderer.crea te;str :=costri ngs.Create;curre ntlayer :=comaplayer.cre

2、ate;curre ntlayer :=imomaplayer(ma in mapayers .item(cou ntry);curre ntlayer.Re nderer :=myvaluere nderer;curre ntrecord :=regi onwhile not curre ntrecord.EOF dobegi nstr.Add(curre ntrecord.fields.ltem(regio nJ.ValueAsStri ng);curre ntrecord.MoveNext;end;myvaluere nderer.ValueCo unt :=str.Co unt;for

3、 i := 0 to str.Co unt-1 dobegi nmyvaluerenderer.Valuei :=str.Item(i);end;mai nmap.refresh;end.获取图层名function getlayername(map :tmap):Tstrings; vari :in teger;layer names :Tstri ngs;begi nlayer names :=Tstri nglist.Create;for i := 0 to map.Layers.Co unt - 1 dobegi nlayernames.Add(imomaplayer(map.Layer

4、ste m(i).Name);end;result :=layer names;end;获取字段名fun cti ongetfile name(map :tmap;layer name :stri ng): Tstri ngs;varcurre ntrecordset :imorecordse t;currenttabledesc :imotabledesc;i :in teger;file names :tstri ngs;begi nfile names :=tstri nglist.create;curre ntrecordset :=imomaplayer(map.Layers tem

5、(layer name).Records;curre nttabledesc :=curre ntrecordset.Table Desc;for i :=0 to currenttabledesc.FieldCount-1 dobegi nfile names.Add(curre nttabledesc.FieldName i);end;result := file names;end;获取值fun cti on getfilevalue(map :tmap;layername:stri ng;f iled name :stri ng):Tstri ngs;varcurre ntrecord

6、 :imorecordse t;curre ntvalues :stri ng;values :Tstri ngs;begi nvalues :=Tstri nglist.Create;curre ntrecord :=imomaplayer(map.Layers.lt em(layername).Records;while not curre ntrecord.EOF dobegi ncurre ntvalues :=curre ntrecord.fields.ltem(filed name).ValueAsStri ng;/if allvalue .In dexOf(curre ntvalues) 0 the ncloseelse begi nShowMessage( 密码不正确，请重新输入。 );edtPassword.Text :=; edtPassword.SetF