我在DBGrid選取資料後按按鈕ListBox，但是都會重複說，請問要如何讓他不重複呢？我知道要讓他在加入前去比對ListBox的內容有沒有存在，沒有就可以加入，例如我選姓名：陳OO、陳XX，然後按按鈕加入到ListBox，我現在是可以加入，但是都會重複說，我的程式碼如下  

 
procedure TFMail.BitBtn1Click(Sender: TObject);
var i,j:integer;
begin
  for i:=0 to DBGrid1.SelectedRows.Count-1 do
  begin
   DBGrid1.DataSource.DataSet.Bookmark:=DBGrid1.SelectedRows.Items[i];
    for j:=0 to ListBox1.Items.Count-1 do
    begin
      if IntToStr(ListBox1.Items.Count)<>ListBox1.Items.Text then
      begin          ListBox1.Items.Add(DBGrid1.DataSource.DataSet.Fields[0].asstring);
      end;
    end;
  end;    end;

謝謝唷

if DBGrid1.DataSource.DataSet.Fields[0].asstring<>ListBox1.Items[I] then ListBox1.Items.Add(DBGrid1.DataSource.DataSet.Fields[0].asstring); ========================= 讀萬卷書~不如來K.TOP走一遭 =========================

1.你設了Bookmark,卻沒有gotobookmark 2.檢查是否已加入到ListBox裡了,可以用IndexOf來檢查    

procedure TFMail.BitBtn1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
  with DBGrid1.DataSource.DataSet do
  begin
    for i:=0 to DBGrid1.SelectedRows.Count-1 do
    begin
      GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
      s:=DBGrid1.DataSource.DataSet.Fields[0].AsString;
      if ListBox1.Items.IndexOf(s)=-1 then
        ListBox1.Items.Add(s);
    end;
  end;
end;

謝謝likush、change.jian兩位大大的幫忙唷 讓我解決了這個問題 謝謝唷