| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Не выполняется цикл. Почему?

Близнец ©   (2006-05-08 13:12:00) 

Доброго времени суток!
Мне необходимо выяснить сколько полей в БД совпадают с полями грида (но суть вопроса не в этом). Делаю так:

var fieldList:TStrings;
   j,k:integer;
   field_count:integer;
begin
   fieldList:=TStringList.Create;
   DM.ADOConnection1.GetFieldNames ('baza',fieldList);
   field_count:=0;
   for j:=0 to fieldList.Count-1 do
     for k:=0 to FUnite.DBGrid1.FieldCount-1 do
     begin
     showmessage (fieldList[j]+'  '+FUnite.DBGrid1.Fields[k].Name); //1
     if fieldList[j]=FUnite.DBGrid1.Fields[k].Name then field_count:=field_count+1; //2
     end;

Поля совпадают все, но результат нулевой и message ни разу не появляется. При трассировке выясняется, что в цикле строчки, закомментированные здесь как 1 и 2, вообще ни разу не обрабатываются, а сразу осуществляется переход на end. Цикл выполняется нужное количество раз, но ничего не делает. Пожалуйста, помогите, совсем уже ничего не соображаю.

---

Близнец   (2006-05-08 13:45:00) [1]

даже -1, спасибо, буду разбираться

---

Плохиш   (2006-05-08 13:38:00) [2]

Значит FUnite.DBGrid1.FieldCount= 0

---

Наверх