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

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

Ошибка в коде


Res ©   (2008-02-06 20:47:00) 

Удалено модератором
Примечание: СПАМ


Palladin   (2008-02-07 10:44:00) [1]

так... опять сообщений не видно...


Palladin   (2008-02-07 10:42:00) [2]

да прямо тут и ошибка, насколько понятно из кода form1.ai это у тебя динамический массив, а в этом случае

setLength(form1.ai, kclass); //klass=0
  if(Pos('class 1 ',ai.Strings[x])<>0) or (Pos('class 2 ',ai.Strings[x])<>0) and (Pos(':',ai.Strings[x])<>0) then //Проверяем является ли классом
  begin //Если является классом, то делаем....
      Inc(kclass); // klass стал 1
      setLength(form1.ai, kclass); // размер массива стал 1
      form1.ai[kclass]:=''; // и тут же второму элементу ты присваиваешь значение, а элементов то 1, и начинаются они с нуля, а не с 1


Джо   (2008-02-06 21:20:00) [3]

Что есть ai:TTntStrings?
Нахрена тут int:array[1..30] of integer?


Наверх

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