询问关于在 Delphi 中使用 MapObject 的问题！(50分)

如何在 Delphi 中使用 mylyr.AddRelate 命令，能给个具体的例子吗？

1.首先定义ODBC的数据源。
2、把LAYER中的SHP文件对应的数据库文件中的字段和数据源中TABLE中的字段建立对应
关系，使用AddRelate方法可以连接，不复杂，我曾经连接过外部数据库表，并且把外部
数据库表中的字段值在MAP控制中显示。

原理我知道呀，可我用不行，你有例子吗？谢谢！
想请教一个问题，如果在 MapObject 中对某块区域上不同的颜色？

to question:
I build a datasource,which names as test.It connect to a dbase3's dbf
name is fff.dbf,it contains two segments, Id and NNN.

procedure TForm1.Button1Click(Sender: TObject);
var
mylyr:Imomaplayer;
reltbl:IMoTable;
recs:IMORecordset;
count:integer;
field:IMofield;
value:string;
begin
reltbl:=cotable.Create as IMotable;
reltbl.Database:='TEST';
reltbl.Name:='fff.DBF';
mylyr:=map1.Layers.Item(0) as IMomaplayer
if mylyr.AddRelate('STATE_ID',reltbl,'ID',true) then
begin
memo1.Clear;
showmessage('connect suss');
end
else
showmessage('connect error!');
recs:=mylyr.Records;
count:=recs.Count;

////////show results
while count > 0 do
begin
field:=recs.Fields.Item('NNN');
value:=field.ValueAsString;
recs.MoveNext;
memo1.Lines.Add(value);
count:=count-1;
end;

****codes above runs very well in my computer. delphi version is 5.0.

to GISxChen:
Thank !
还有一个问题另题提问。

接受答案了.