delphi中我在數據庫提取的數據放到下拉框中。我想清除重複的

Question

while not EOF do
         begin
           XGdeportment.Items.Add(FieldByName('XGdepartment').AsString);
           cbxpost.Items.Add(FieldByName('postxg').AsString);
           next;
         end;
=========================
下拉框有重複的數據。我想清除掉。怎么辦？謝謝拉。

Answer 1

while not EOF do
        begin
          if XGdeportment.Items.indexof(FieldByName('XGdepartment').AsString) < 0 then
            XGdeportment.Items.Add(FieldByName('XGdepartment').AsString);
          if cbxpost.Items.IndexOf(FieldByName('postxg').AsString)<0 then
            cbxpost.Items.Add(FieldByName('postxg').AsString);
          next;
        end; 

Answer 2

你實在太厲害拉。。csdyyr。。我叫吳劍花。有機會做個朋友啊

Answer 3

其实这个工作应该在SQL查询时就完成