Código Delphi [-]begin if not (pos(trim(table.FieldByName('campo').AsString),ComboBox1.Items.Text)>0) then ComboBox1.items.add(table.FieldByName('campo').AsString);
begin if not (pos(trim(table.FieldByName('campo').AsString),ComboBox1.Items.Text)>0) then ComboBox1.items.add(table.FieldByName('campo').AsString);