Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Ошибка в приложении, Нужен совет 
V
    Опции темы
IvanVL
  Дата 7.4.2006, 09:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Вот код delphi7:
Код

procedure TMainForm.FormActivate(Sender: TObject);
begin
  mySQLDatabase1.Connected := False;
  if Avtorization.ShowModal = 1 then
    Begin
      mySQLDatabase1.UserName := Avtorization.Edit1.Text;
      mySQLDatabase1.UserPassword := Avtorization.Edit2.Text;
      Try
        mySQLDatabase1.Connected := True;
      Except On Exception Do
        Begin
          ShowMessage('Вы не авторизованы, проверьте имя и пароль');
          Close;
          Exit;
        End;
      End;
    end
  Else
    Begin
//      ShowMessage('Приложение будет закрыто');
      Close;
      Exit;
    End;
  NomenclatureTable.Active := True;
  ActiveControl := NomenclatureGrid;
  NomenclatureGrid.SelectedField := NomenclatureTable.FieldByName('Name');
end;


При любом исходе выпадает ошибка "project1.exe raised expectation class ElistError with message 'List index out of bounds (2)'. Process stopped... ", как должно быть правильно, может кто-то подскажет метод регистрации пользователей более красивый и правильный.
PM MAIL ICQ   Вверх
sexton
Дата 7.4.2006, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


sexton=Пономарь (eng)
**


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

Репутация: нет
Всего: 9
А дебаггером пройтися по строчкам и посмотреть в какой строке ошибка?


--------------------
 Поставить + 

 ЖЖ 
 Рассылка Рассылок 
PM MAIL WWW ICQ   Вверх
McDevil
Дата 7.4.2006, 23:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: нет
Всего: 3
Цитата(IvanVL @ 7.4.2006, 09:47 Найти цитируемый пост)
  NomenclatureTable.Active := True;
  ActiveControl := NomenclatureGrid;
  NomenclatureGrid.SelectedField := NomenclatureTable.FieldByName('Name');

Зачем вам вот ети строки если вы закрываете приложение скорее всего глюк именно в них попробуйте поставь заглушки и прокомпилить...

Цитата(IvanVL @ 7.4.2006, 09:47 Найти цитируемый пост)
mySQLDatabase1.Connected := False;


Я тут подумал помоему у вас коннект в фальше, а NomenclatureTable вы пытаетеся активизировать...

Это сообщение отредактировал(а) McDevil - 7.4.2006, 23:46


--------------------
 мы знаем столько, сколько можем, а можем столько, сколь хотим... 

Тестируем программу: SPL-программа аналогов функций  
PM MAIL WWW ICQ   Вверх
IvanVL
Дата 10.4.2006, 02:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Все проверил. Закрыл последние строки, построчно запустил выполняться, и увидел что ошибка где-то между концом процедуры и закрытием приложения.
PM MAIL ICQ   Вверх
IvanVL
Дата 14.4.2006, 09:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Господа проффессионалы где вы? smile smile
PM MAIL ICQ   Вверх
McDevil
Дата 14.4.2006, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 285
Регистрация: 8.12.2005
Где: Казахстан, Павлод ар

Репутация: нет
Всего: 3
IvanVL, может выложишь исходник если конечно ничего секретного нет, а там разберемся... smile


--------------------
 мы знаем столько, сколько можем, а можем столько, сколь хотим... 

Тестируем программу: SPL-программа аналогов функций  
PM MAIL WWW ICQ   Вверх
IvanVL
Дата 18.4.2006, 02:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Прошу прощения, разобрался! smile  
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1000 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.