怎么把记录现在在listbox中呢？

Question

大家好，我有一个表，其中一个字段是这样的：
班级       。
软件开发   
硬件设计
网络开发
软件开发
怎么在listbox中出现
软件开发
网络开发
硬件设计
这样的情况呢？也就是说那个字段的记录不要重复出现在listbox中，谢谢！

Answer 1

...
Var
   NewItem:TListItem;
begin
   NewItem:=ListView1.Items.Add;
   NewItem.Caption:='班级'；
   NewItem.SubIetms.Add('软件开发');
   NewItem.SubItems.Add('硬件开发');
   While Not Table.Eof Do
   Begin
      NewItem:=ListView1.Items.Add;
      NewItem.Caption:=Table1.FieldByName('班级').AsString；
      NewItem.SubIetms.Add(Table1.FieldByName('软件开发').AsString；);
      NewItem.SubItems.Add(Table1.FieldByName('硬件开发').AsString；);
      Table1.Next;
   End;
end;

Answer 2

啊！是listBox啊！呵呵！弄错了!

Answer 3

应该是:
procedure TForm1.Button1Click(Sender: TObject);
begin
   with ListBox1.Items do
   begin
      while not Table1.eof do
      begin
         add(Table1.FieldbyName('字段名').AsString);
         Table1.next;
      End;
   end;
end;