如何在delphi中实现动态item的listbox,随数据库的内容变化。

Question

我也正好编程用道，给你贴出原代码，参考一下
With msgQuery do
begin
  Close;
  SQL.Clear;
  SQL.Add('select message1,time1,userid from dbo.msg ');
  sql.add('where userid="'+edit4.text+'" and read1= "n" ');  Open;
end;
if msgQuery.RecordCount=0 then
  exit;
noticetimer.Enabled:=true;
msgQuery.First;
for i:=0 to msgQuery.RecordCount-1 do
begin
  newitem:=listview1.Items.Add;
  newitem.caption:=msgquery.Fieldbyname('time1').asstring;
  newitem.SubItems.Add(msgquery.fieldbyname('message1').asstring);
  msgQuery.Next;
end;