简单问题!

[ivanzj]

我遇到这样的问题:
用一个DBCombobox
我把Style设为csDropDownList，初始化时，取得用户名添加到下拉列表，
怎样把"超级用户"这样的用户名排到最前面？

[漠北刀客]

dbcombobox.text := '超级用户';

[fuyifan]

数据库中的记录，把 超级用户 放在第一行的位置 不久可以了吗

[shiweiwei]

dbcombobox.itemindex:=dbcombobox.indexof(trim(超级用户));

[vchoushen6]

还是用COMBOBOX吧，做这些东西就方便多了。代码又没多少。

[huojiehai]

if dbcombobox.indexof('超级用户') > 0 then
begin
dbcombobox.items.delete(dbcombobox.indexof('超级用户'));
dbcombobox.items.insert(0, '超级用户');
end;

[huojiehai]

Sorry!就是
if dbcombobox.items.indexof('超级用户') > 0 then
begin
dbcombobox.items.delete(dbcombobox.indexof('超级用户'));
dbcombobox.items.insert(0, '超级用户');
end;

[huojiehai]

Sorry!失礼!应是
if dbcombobox.items.indexof('超级用户') > 0 then
begin
dbcombobox.items.delete(dbcombobox.items.indexof('超级用户'));
dbcombobox.items.insert(0, '超级用户');
end;

[cmmzj]

1,
DBComboBox1.Items.Delete(DBComboBox1.Items.IndexOf('超级用户'));
DBComboBox1.Items.Insert(0, '超级用户');
2,
for lp := 0 to DBComboBox1.items.count - 1 do
begin
if DBComboBox1.items[lp] = '超级用户'then
begin
DBComboBox1.items.Delete(lp);
break;
end;
end;
DBComboBox1.Items.Insert(0, '超级用户');
3
var
i:integer;
begin
Table1.first;
i := 1;
While not Table1.eof do
begin

if Table1.fieldByName('Name').asstring = '超级用户'then
begin
DBComboBox1.Items.Insert(0, Table1.fieldByName('Name').asstring);
end
else
begin
DBComboBox1.Items.Insert(i, Table1.fieldByName('Name').asstring);
i := i + 1;
end;
Table1.next;
end;
end;