Проблема с заполнением 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;

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

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