Здравствуйте.Вопрос такой: Есть БД, поле со списком фамилий они могут повторяться и не раз.Нужно собрать список из различных неповторяющихся фамилий. Делаю это так:
| Код |
DBComboBox2->Clear(); //очищаем комбобокс
DBComboBox3->Clear();
DBComboBox4->Clear();
DBComboBox5->Clear();
DBComboBox6->Clear();
DBComboBox7->Clear();
DBComboBox8->Clear();
DBComboBox9->Clear();
ComboBox1->Clear();
ComboBox2->Clear();
Form2->ADOTable->First(); //переходим на первую запись в таблице
Form2->ADOTable->Refresh();
for(int i=1;i<=Form2->ADOTable->RecordCount;i++) //цикл по всем записям в таблице
{
if(DBComboBox2->Items->IndexOf(Form2->ADOTablename->Text)<0 && Form2->ADOTablename->Text.Length()>0)
DBComboBox2->Items->Add(Form2->ADOTablename->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablewhom->Text)<0 && Form2->ADOTablewhom->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablewhom->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablepodp->Text)<0 && Form2->ADOTablepodp->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablepodp->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTableisp->Text)<0 && Form2->ADOTableisp->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTableisp->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablewhom_otp->Text)<0 && Form2->ADOTablewhom_otp->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablewhom_otp->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablewhom_otp1->Text)<0 && Form2->ADOTablewhom_otp1->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablewhom_otp1->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablewhom_otp2->Text)<0 && Form2->ADOTablewhom_otp2->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablewhom_otp2->Text);
if(DBComboBox3->Items->IndexOf(Form2->ADOTablewhom_otp3->Text)<0 && Form2->ADOTablewhom_otp3->Text.Length()>0)
DBComboBox3->Items->Add(Form2->ADOTablewhom_otp3->Text);
Form2->ADOTable->Next(); //переходим на след запись в таблице
}
DBComboBox4->Items=DBComboBox3->Items;
DBComboBox5->Items=DBComboBox3->Items;
DBComboBox6->Items=DBComboBox3->Items;
DBComboBox7->Items=DBComboBox3->Items;
DBComboBox8->Items=DBComboBox3->Items;
DBComboBox9->Items=DBComboBox3->Items;
ComboBox1->Items=DBComboBox2->Items;
ComboBox2->Items=DBComboBox3->Items;
|
Суть вопроса-если будет много записей,не очень ли эта операция много времени будет выполняться????
|
)