J
jklmsoho
Unregistered / Unconfirmed
GUEST, unregistred user!
如题
C
creation-zy
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
with TStringList.Create do
begin
Sorted:=true;
Duplicates:=dupIgnore
//*********
Assign(ListBox1.Items);
ListBox1.Items.Text:=Text;
Free;
end;
end;
Done!
begin
with TStringList.Create do
begin
Sorted:=true;
Duplicates:=dupIgnore
//*********
Assign(ListBox1.Items);
ListBox1.Items.Text:=Text;
Free;
end;
end;
Done!
Z
zhblc
Unregistered / Unconfirmed
GUEST, unregistred user!
我想把query查询结果放到combobox中该怎么办.!
怎样得到query查询结果谢谢给我列出来好吗!
怎样得到query查询结果谢谢给我列出来好吗!
Z
zhaowei7804
Unregistered / Unconfirmed
GUEST, unregistred user!
combobox1.items.clear;
with query1 do
begin
close;
sql.clear;
sql.text:='select * from consum'
open;
if recordcount>0 then
first;
whlie ture do
begin
combolox1.items.add(fieldbyname['金额'].asstring)
next;
end;
end;
with query1 do
begin
close;
sql.clear;
sql.text:='select * from consum'
open;
if recordcount>0 then
first;
whlie ture do
begin
combolox1.items.add(fieldbyname['金额'].asstring)
next;
end;
end;
Z
zhblc
Unregistered / Unconfirmed
GUEST, unregistred user!
拜托还是不行啊,除几个明显错误改正后还是不行!请帮忙帮到底!!!!
Y
yt_wyb
Unregistered / Unconfirmed
GUEST, unregistred user!
只有在添加项的时候检查一下有没有相同的项
Z
zhblc
Unregistered / Unconfirmed
GUEST, unregistred user!
找到答案了谢谢
combobox1.Items.Clear
while not table1.eof do
begin
combobox1.items.add(table1.fieldbyname('pro_node').asstring);
table1.next;
end;
combobox1.Items.Clear
while not table1.eof do
begin
combobox1.items.add(table1.fieldbyname('pro_node').asstring);
table1.next;
end;
S
shangshang
Unregistered / Unconfirmed
GUEST, unregistred user!
你问的真绝!!!.哈哈哈
原来你是想知道combobox1.Items.Clear 这句.[
][]
原来你是想知道combobox1.Items.Clear 这句.[
][]
J
jklmsoho
Unregistered / Unconfirmed
GUEST, unregistred user!
thanks
