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

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

Почему зацикливается этот кусок кода ? [D5, IB5.x]


Tutov Roman ©   (2002-06-07 13:42:00) 

begin
Form1.pFIBDataSet3.First;
while not Form1.pFIBDataSet3.Eof do begin
if trim(Form1.pFIBDataSet3.FieldByName("TOVAR").AsString) = "TNT" then
begin
Form1.frame21.Memo1.Lines.Add("ОК");
abort;
end;
form1.Table1.Next;
end;
end;


Alexandr   (2002-06-10 07:02:00) [1]

это ошибка №1 разработчика для БД


Tutov Roman   (2002-06-07 13:47:00) [2]

Упс...:)


kaif   (2002-06-07 13:44:00) [3]

Form1.pFIBDataSet3.First;
form1.Table1.Next;

А где Form1.pFIBDataSet3.Next?
Я тоже всегда забываю это написать :))


Наверх

Титульная страница Поиск, карта сайта Написать письмо