Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Отключить компилятор или переписать


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

Код

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
Код

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;

Автор: Bes 5.5.2005, 15:43
Ой, классно, спасибо. smile

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)