如果是一个字段,可以用listbox,如果是多字段,最好用listview.
动态添加:listview1.Items.Clear;
yw_query.first;
while not yw_query.eof do
begin
ListItem := listview1.Items.Add;
ListItem.Caption := yw_query.fieldbyname('yw_no').asstring;
ListItem.SubItems.Add(yw_query.fieldbyname('yw_xm').asstring);
ListItem.SubItems.Add(yw_query.fieldbyname('yw_bm').asstring);
ListItem.SubItems.Add(yw_query.fieldbyname('yw_zw').asstring);
yw_query.Next; end;
动态添加:listview1.Items.Clear;
yw_query.first;
while not yw_query.eof do
begin
ListItem := listview1.Items.Add;
ListItem.Caption := yw_query.fieldbyname('yw_no').asstring;
ListItem.SubItems.Add(yw_query.fieldbyname('yw_xm').asstring);
ListItem.SubItems.Add(yw_query.fieldbyname('yw_bm').asstring);
ListItem.SubItems.Add(yw_query.fieldbyname('yw_zw').asstring);
yw_query.Next; end;
index:integer;
begin
if templist.Selected <> nil then
begin
index:=templist.Selected.Index;
templist.Selected.Delete ;
end;
end;