پر کردن combobox با query در دلفی 2005

سلام

من یک query دارم که یک سری رکورد رو از بانک استخراج می کنه که شامل رکورد های تکراری هم می شه. حالا می خوام combobox رو با اطلاعات یک فیلد خاص از این query پر کنم . این کار رو با یک حلقه for انجام می دم و درست انجام می شه ولی مشکل اینجاست که نمی خوام combobox حاوی اطلاعات تکراری باشه یعنی فیلدهای تکراری از query فقط یکبار تو combobox قرار بگیرند این کار رو چطور می تونم انجام بدم؟

ممنون از همکاریتون

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
    For i:=1 To Table1.RecordCount do
    begin
    Table1.RecNo:=i;
    if Not ComboBox1.Items.IndexOf(' FieldName ')=0 Then
      ComboBox1.Items.Add(' FieldName ');
    end;
end;

---

ممنون از توجهتون من کد رو به صورت زیر نوشتم

کد:

---

dm1.IBQuery10.Active:=true;
 dm1.IBQuery10.First;
    if not  dm1.IBQuery10.Eof then
    begin
      while not  dm1.IBQuery10.Eof do
      begin
        name:=dm1.IBQuery10.FieldByName('name').Value;
       
          combobox2.Items.add(name);
        dm1.IBQuery10.Next;
      end;
    end;

---

و با این کد همونطور که قبلا گفتم کار می کنه یعنی فیلدهای تکراری رو هم تو comboboxوارد می کنه طبق گفته شما کد رو به صورت زیر نوشتم ولی هنوز درست نشده

کد:

---

dm1.IBQuery10.Active:=true;
 dm1.IBQuery10.First;
    if not  dm1.IBQuery10.Eof then
    begin
      while not  dm1.IBQuery10.Eof do
      begin
        name:=dm1.IBQuery10.FieldByName('name').Value;
        if Not ComboBox2.Items.IndexOf('name')=0 Then
          combobox2.Items.add(name);
        dm1.IBQuery10.Next;
      end;
    end;

---

مشکل کجاست؟

سلام دوست عزيز اين كه كاري نداره
تو دستورات SQL كوئري اين رو اضافه كن :

کد:

---

SELECT DISTINCT column FROM table

---

راستي اين Distinct كارش اينه كه موارد اضافي رو حذف ميكنه .

از کد زیر استفاده کنید . تست کردم جواب داد . موفق باشید .

کد:

---

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
  s:string;
begin
  for i := 1 to ADOTable1.RecordCount do
    begin
      ADOTable1.RecNo:=i;
      s:=ADOTable1Name.Value;
      if Not ComboBox1.Items.IndexOf(s)>-1 then
        ComboBox1.Items.Add(ADOTable1Name.Value);
    end;
end;

---

سلام
ممنون از توجهتون

در جواب آقا مجتبی باید بگم من query رو همین جوری لازم دارم با تکرار چون می خوام تکرارها توی دیتا گرید نمایش داده بشه پس نمی تونم از distinct استفاده کنم

اما طبق گفته شما کد رو نوشتم

کد:

---

for i:=1 to dm1.IBQuery10.RecordCount do
    begin
      dm1.IBQuery10.RecNo:=i;
      name:=dm1.IBQuery10.FieldByName('name').Value;
        if Not ComboBox2.Items.IndexOf('name')>-1 Then
          combobox2.Items.add(name);
      end;

---

ولی باز درست نشد

با while هم درست نشد:

کد:

---

dm1.IBQuery10.Active:=true;
 dm1.IBQuery10.First;
    if not  dm1.IBQuery10.Eof then
    begin
      while not  dm1.IBQuery10.Eof do
      begin
        name:=dm1.IBQuery10.FieldByName('name').Value;
        if Not ComboBox2.Items.IndexOf('name')>-1 Then
          combobox2.Items.add(name);
        dm1.IBQuery10.Next;
      end;
    end;

---

متوجه شدم مشکل کجاست من کد رو به صورت زیر می نوشتم:

کد:

---

if not  dm1.IBQuery10.Eof then
    begin
      while not  dm1.IBQuery10.Eof do
      begin
        name:=dm1.IBQuery10.FieldByName('name').Value;
        if Not ComboBox2.Items.IndexOf('name')>-1 Then
          combobox2.Items.add(name);
        dm1.IBQuery10.Next;
      end;
    end;

---

و باید به صورت زیر باشه:

کد:

---

if not  dm1.IBQuery10.Eof then
    begin
      while not  dm1.IBQuery10.Eof do
      begin
        name:=dm1.IBQuery10.FieldByName('name').Value;
        if Not ComboBox2.Items.IndexOf(name)>-1 Then
          combobox2.Items.add(name);
        dm1.IBQuery10.Next;
      end;
    end;

---

یعنی علامت ' رو در کد if Not ComboBox2.Items.IndexOf(name)>-1 Then نباید بذاریم

البته اگه nameاز نوع integerباشه باید بنویسیم:

کد:

---

  if Not ComboBox1.Items.IndexOf(inttostr(name))>-1 Then

---

يك كدساده براي پر كردن Combo box در دلفي :

dm.Adoq1.Close;
dm.Adoq1.SQL.Clear;
dm.Adoq1.SQL.Add('select distinct(name_ph) from type_phone');
dm.Adoq1.Open;
for I := 1 to dm.Adoq1.RecordCount do
begin
dm.Adoq1.RecNo:=i;
ComboBox1.Items.Add(dm.Adoq1.FieldByName('name_ph' ).AsString);
end;