Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> ошибка после окончания выполнения процедуры 
V
    Опции темы
Martisha
Дата 4.12.2008, 11:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
выполняю процедуру:
Код

procedure TForm1.Button4Click(Sender: TObject);
Var  kol:Integer;
     kol1:Integer;
     i,j:Integer;
     FileText:String;
begin
OraTable1.Active:=True;
kol:=Form1.ListBox1.Count;
  for i:=0 to kol do
    begin
      FileText:=Form1.ListBox1.Items[i];
      ListBox2.Items.LoadFromFile(FileText);
        kol1:=Form1.ListBox2.Count;
              Form1.OraStoredProc2.Prepare;
              Form1.OraStoredProc2.ExecProc;
          for j:=2 to kol1-3 do
            begin
              if Length(ListBox2.Items[j])<>0 then
              begin
              OraTable1.Insert;
              OraTable1.FieldByName('allfile').AsString:=ListBox2.Items[j];
              OraTable1.Post;
              end;
            end;
            Form1.OraStoredProc1.Prepare;
            Form1.OraStoredProc1.ExecProc;
     end;
end;


после завершения процедуры выходит ошибка, все данные вносятся в бд, вроде все работает,помогите понять почему ошибка вылазит

вот ошибка:
 
http://pic.ipicture.ru/uploads/081204/FjlI5L2rxV.jpg
PM MAIL ICQ   Вверх
Matematik
Дата 4.12.2008, 11:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1027
Регистрация: 11.3.2006

Репутация: 7
Всего: 50
Код

  for i:=0 to kol-1 do
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 4.12.2008, 11:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130
Нумерация строк в ListBox  и иже с ним начинается с 0. smile 

Это сообщение отредактировал(а) Данкинг - 4.12.2008, 11:45


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Martisha
Дата 4.12.2008, 12:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Цитата(Данкинг @  4.12.2008,  11:45 Найти цитируемый пост)
Нумерация строк в ListBox  и иже с ним начинается с 0

знаю, просто во втором случае мне не все строки нужны smile 


Matematik, 
сейчас попробую)
PM MAIL ICQ   Вверх
vladimir74
Дата 4.12.2008, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3
вот тут у тебя ошибка...
Код

kol:=Form1.ListBox1.Count;
  for i:=0 to kol do

должно быть так.
Код

kol:=Form1.ListBox1.Count;
  for i:=0 to kol-1 do


--------------------
* В доме помешанного не говорят о миксере.* На любой Ваш вопрос у меня есть любой мой ответ.
PM MAIL   Вверх
bems
Дата 4.12.2008, 13:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 18
Всего: 88
Цитата(Martisha @  4.12.2008,  12:11 Найти цитируемый пост)
во втором случае мне не все строки нужны 
а в первом ты обращаешся к несуществующему элементу на последней итерации



--------------------
Обижено школьников: 8
PM MAIL   Вверх
vladimir74
Дата 4.12.2008, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3
Цитата(Данкинг @  4.12.2008,  09:45 Найти цитируемый пост)
Нумерация строк в ListBox  и иже с ним начинается с 0.

вот именно по этому и должно быть  kol-1  smile  smile 
--------------------
* В доме помешанного не говорят о миксере.* На любой Ваш вопрос у меня есть любой мой ответ.
PM MAIL   Вверх
Martisha
Дата 4.12.2008, 13:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
vladimir74, 
bems, 
vladimir74, 
дадада...уже поняла))))
 smile 
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

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

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

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

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

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


 




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


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

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