Форум: "Базы";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Вниз

Проблема с заполнением comboBox   Найти похожие ветки 

← →
Andrey   (2004-09-09 11:43) [0]

Подскажите, пожалуйста, если кто знает, почему может не выполняться код между begin и end.

form4.org.Active:=true;
   form4.org.first;
       while not form4.org.eof do
     begin
         comboBoxOrg.Items.Add(form4.orgnazv.asstring);
         form4.org.next;
     end;

---

← →
saNat ©   (2004-09-11 04:37) [1]

Вероятно EOF...

С уважением...

---

← →
Vasis   (2004-09-11 06:46) [2]

Как делаю я:
 with fDM.qAgents do begin
   k:=RecNo;
   First;
   while not Eof do begin
     if eFIO.Items.IndexOf(FieldByName("FIO").AsString)=-1 then eFIO.Items.Append(FieldByName("FIO").AsString);
     Next;
   end;
   RecNo:=k;
 end;

Код идентичен, у меня все работает... Так что дело не в коде

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.10.10;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.034 c