Не хочет проходится FOR'ом по txt файлу

[zotox]

Переменные:

Процедурная:

  edf     :   integer;
  p1,p2   :   integer;
  stringelite:string;
  EliteDirF:  TStrings;
  lblelite:   array[1..20] of TLabel;
iEliteDirsS,iEliteDirsE:integer;
EliteDirsS,EliteDirsE:array [1..20] of string;

Код:

 elitedirF:=TStringList.Create;
 elitedirF.LoadFromFile('EliteDirs.txt');

 iEliteDirsS:=1;
 iEliteDirsE:=1;

 for edf:=0 to EliteDirF.Count-1 do
  begin
    stringelite:=EliteDirF.Strings[i];

    lblelite[i]:=TLabel.Create(GroupBox3);
    lblelite[i].Parent:=GroupBox3;
    lblelite[i].Left:=10;
    lblelite[i].Top:=30;
    lblelite[i].Visible:=true;
    p1:=pos(';',EliteDirF.Strings[i]);
    EliteDirsS[i]:=copy(stringelite,0,p1);
    EliteDirsE[i]:=copy(stringelite,p1,length(stringelite));
    lblelite[i].Caption:=EliteDirsS[i];

    iEliteDirsS:=iEliteDirsS+1;
    iEliteDirsE:=iEliteDirsE+1;
  end;

Нужно чтобы возможно было описывать в глобальном объявлении переменных
НО, не так все просто! Если удалить переменную из объявлений переменных процедуры(форм.крейт) и сунуть ее в объявления глобальных переменных(т.е. объяв. переменных до всех процедур/функций) то программа будет выдавать ошибку при запуске!

Ошибка -> Access violation at address 00000022. Read of address 00000022.

[Serge_Bliznykov]

for edf:=0 to EliteDirF.Count-1 do

цикл по какой переменной? по edf
так какого Вы используете i в цикле?
попробуйте так:

for i:=0 to EliteDirF.Count-1 do

и ещё, не видно описания массивов
EliteDirsE и EliteDirsS
ну, думаю, что там, так же как и lblelite не меньше 5...

[zotox]

Сообщение от Serge_Bliznykov

for edf:=0 to EliteDirF.Count-1 do

цикл по какой переменной? по edf
так какого Вы используете i в цикле?
попробуйте так:

for i:=0 to EliteDirF.Count-1 do

и ещё, не видно описания массивов
EliteDirsE и EliteDirsS
ну, думаю, что там, так же как и lblelite не меньше 5...

Да блин точно забыл поменять i на edf

var
EliteDirsS,EliteDirsE:array [1..20] of string;

Есть ошибка но другая... Описание:
При запуске проги лезет
Access violation at address 00000022. Read of address 00000022.

Указывая на конец цикла синей подсветкой

[TAVulator]

iEliteDirsS:=iEliteDirsS+1;
iEliteDirsE:=iEliteDirsE+1;

а как это так? прибавить к массиву единицу??

[Crivel]

zotox, как мне кажется в EliteDirF и в массивах lblelite, EliteDirsS, EliteDirs не одинаковое количество элементов. То есть вы обращайтесь за границы массива, в массивах максимальное количество элементов 20, а цикл пытается работать, например с 22-м элементом которого не существует.

[zotox]

Сообщение от TAVulator

а как это так? прибавить к массиву единицу??

Так да... Не дописал кое что в переменных для форума
iEliteDirsS и iEliteDirsE это тип инт

zotox, как мне кажется в EliteDirF и в массивах lblelite, EliteDirsS, EliteDirs не одинаковое количество элементов. То есть вы обращайтесь за границы массива, в массивах максимальное количество элементов 20, а цикл пытается работать, например с 22-м элементом которого не существует.

Нет. Кое что случайно удалил при изменении текста. Добавил. (у меня 5 строчек в файле)

[Serge_Bliznykov]

выкладывайте модуль ЦЕЛИКОМ. (желательно проект запаковать в архив и прикрепить к сообщению через расширенный режим).
Access violation это обычно ошибки обращения к "чужой" памяти. Причина чаще всего в том, что объект, методы или свойства которого вызываются — не был создан.

[zotox]

//del, смотрите первый пост

[Serge_Bliznykov]

Если удалить переменную из описания глобальных переменных и сунуть ее в опис. переменных процедуры (форм.крейт) то будет нормально работать но возникает другая проблема! Что так не идет, нужно чтобы описание переменной было глобальной а не процедурной

что не так идёт?! Куда и зачем Вы перенесли описание переменных? Что Вы вообще хотите получить?!!
может стоит всё таки выложить модуль ЦЕЛИКОМ?!!!

[zotox]

Сообщение от Serge_Bliznykov

что не так идёт?! Куда и зачем Вы перенесли описание переменных? Что Вы вообще хотите получить?!!
может стоит всё таки выложить модуль ЦЕЛИКОМ?!!!

Не понимаете значит пройдите мимо, по другому для вас не могу объяснить. Глобальное описание переменных... Это значит объявление переменных в VAR'е выше всех процедур/функций (чуть подредактировать первый пост, для понятливости)

может стоит всё таки выложить модуль ЦЕЛИКОМ?!!!

МОДУЛЬ И ВСЕ ОСТАЛЬНОЕ В ПЕРВОМ ПОСТЕ!!!