简单问题进来帮我解决一下,谢谢

请问一下,比如数据库里有3条记录
字段: ID   NAME  CODE
       A   AA    A1
       B   BB    A1 B1
       C   CC    A2 B1 C1
if cdsmain.RecordCount>0 then
  begin
  cdsmain.first;
    while not cdsmain.Eof do
      begin
      Str:=trim(cdsmain.fieldbyname('CODE).asstring)+' '+Str;
      cdsmain.Next;
      end;
   end;
我把字段CODE里全部取出来了值为A1 A1 B1 A2 B1 C1,
那现在我想把重复的去掉,得到值是A1 B1 A2 C1,请问怎么写