VPF::Отключить компилятор или переписать

Bes

Дата 5.5.2005, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

вообщем загружаю в массив значения из таблицы с помошью АДОКвери такой конструкцией.

Код


SetLength(PasswordArray,1);
     ComboBox1.Items.Clear;
     Repeat
          SetLength(PasswordArray,Length(PasswordArray)+1);
          ComboBox1.Items.Add(Query1.FieldByName('user').AsString);
          PasswordArray[Length(PasswordArray)-1].Name:=Query1.FieldByName('user').AsString;
          PasswordArray[Length(PasswordArray)-1].Password:=Query1.FieldByName('pass').AsString;
     Until Query1.FindNext=false;

ну и понятно она добегает до конца таблицы и говорит
Either BOF or EOF is true, or the current record has been deleted
причем это сообщение выпрыгивает только в разроботчике а в самом приложении его нет как будто эта хреновина заведена через try-except.

Проблема в том, что затрахала она меня при отладке. Может можно более грамотно написать или на крайняк выключить в этом месте кмпилятор?

Vit

Дата 5.5.2005, 15:13 (ссылка)

(нет голосов)

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207

Код


SetLength(PasswordArray,1);
ComboBox1.Items.Clear;
While not  Query1.eof do
  begin
      SetLength(PasswordArray,Length(PasswordArray)+1);
      ComboBox1.Items.Add(Query1.FieldByName('user').AsString);
      PasswordArray[Length(PasswordArray)-1].Name:=Query1.FieldByName('user').AsString;
      PasswordArray[Length(PasswordArray)-1].Password:=Query1.FieldByName('pass').AsString;
      Query1.Next;
  end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Bes

Дата 5.5.2005, 15:43 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 806
Регистрация: 8.12.2004

Репутация: 5
Всего: 7

Ой, классно, спасибо. smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »