[ua3rad]

Всем добрый день. Помогите найти ошибку:

Код:

procedure TForm1.open_drlClick(Sender: TObject);
var N,i, probel, N_strok, l: integer;
    st: string;
    a:array[1..1000] of string;
    drl_string: array [1..1000] of string;
    flag: boolean;
  begin
    if OpenDialog1.Execute then
    begin
      AssignFile(f, OpenDialog1.FileName);
      reset(f);

      // Удаляем из файла повторяющиеся строки и переводим строки в массив
      while not Seekeof(f) do
      begin
        readln(f, st); { считываем из файла строки }
        probel:= Pos (' ',st); {находим координаты символа 'пробел' в конце строки}
        Delete (st,probel,200); {удаляем все пробелы в конце каждой строки}
        N := N + 1; { увеличиваем переменную на единицу }
        repeat
        begin
          i := i + 1; { увеличиваем переменную на единицу }
          a[i] := st; { записываем строки в массив }
        end;
        until i = N; { условие для окончания циклы }

      end;

      N_strok := 1;
      for i := 1 to N do
      begin
        flag := true;
        for l := 1 to N_strok do
          if drl_string[l] = a[i] then
            flag := false;
        if flag = true then
        begin
          drl_string[N_strok] := a[i];
          N_strok := N_strok + 1;
        end;
      end;
      closefile(f); {закрываем исходный файл}
    end;

    // Выводим массив в TMemo---------------------------------------------------
    for i := 1 to N_strok do
      DrlText.Lines[i]:= drl_string[i];

  end;

Админ: Пользуемся тегами для оформления кода!

Забыл написать про ошибку.
Программа компилируется, но при открытии файла вылетает следующее

Access violation at addess 00407296 in module 'DrlToAutoCad.exe'. Write of addess 02B5BF04

[Mrak]

Часть II – Сообщения

2.1. Перед тем как задать вопрос не поленитесь поискать ответ на него в Интернет, в разделе FAQ или на форуме. Вполне возможно, что Вы не первый кто столкнулся с такой проблемой.
2.2. Старайтесь выбирать ветку форума в соответствии с Вашим вопросом.
2.3. Один вопрос – одна тема.
2.4. Делайте заголовок темы информативным, старайтесь избегать заголовков типа: "Помогите!!!". Так же настоятельно советуем избегать излишнего использования ЗАГЛАВНЫХ букв.
2.5. Не рекомендуется задавать один и тот же вопрос несколько раз подряд. Если по какой-то причине Вы все же создали 2 и более одинаковые темы, советуем удалить лишние дубли самостоятельно или, если Вам это не удалось, связаться с администрацией форума.
2.6. Пользовательская подпись не должна превышать 4 строк (включая пустые), и не должна содержать ссылок (ссылку на свой сайт Вы можете вставить в соответствующее поле профиля). Рекламируйте себя другими способами, форум не рекламная площадка.
2.7. На форуме запрещено обсуждать все, что относится к взлому, незаконному использованию и распространению программного обеспечения.
2.8. Используйте тег [C0DE]...[/C0DE].

http://www.delphisources.ru/pages/forum_rules.html

сколько пунктов нарушил?

по теме, обычно такая ошибка, когда где-то че-то пытаешься делать с несуществующими данными
в delete строка существует?

[Uniq!]

Массивы не от 1цы! А от нуля создавайте!
Основы паскаля, чёрт возьми.

[Mrak]

Сообщение от Uniq!

Массивы не от 1цы! А от нуля создавайте!
Основы паскаля, чёрт возьми.

да ладно?
а че у меня с 123 стоит и работает?

[SCrat.ORS]

У тебя

Код:

    a:array[1..1000] of string;
    drl_string: array [1..1000] of string;

Используется не динамический массив.
Ошибка что выскакивает говорит - что выход за пределы ареса выделенной памяти, - доступ запрещен. (вычерный перевод).
Это бывает по нескольким причинам, в данном случае у тебя больше всего смахивает на то, что при цикле:

Код:

 for i := 1 to N do
      begin
        flag := true;
        for l := 1 to N_strok do
          if drl_string[l] = a[i] then
            flag := false;
        if flag = true then
        begin
          drl_string[N_strok] := a[i];
          N_strok := N_strok + 1;
        end;
      end;
      closefile(f); {закрываем исходный файл}
    end;

или при цикле:

Код:

 begin
          i := i + 1; { увеличиваем переменную на единицу }
          a[i] := st; { записываем строки в массив }
        end;
        until i = N; { условие для окончания циклы }

переменная i или N_strok становится больше чем 1000. т.е. программа пытается получить ячейку номером более 1000 из массива, а он состоит из 1000 ячеек (например drl_string[1001] или a[1001]) и в следствии - ошибка. Думаю суть понятна. Используй какой-нибудь примитивный showmessage(inttostr(i)) перед записью/считыванием в массив - что бы видеть какой номер ячейки используется. Более чем уверен, что 1001 будет.

[ua3rad]

В pascalABC все работает.

Сообщение от Uniq!

Массивы не от 1цы! А от нуля создавайте!
Основы паскаля, чёрт возьми.

Массивы создаю, как мне удобней

[Mrak]

вот хорошая статья
http://www.gunsmoker.ru/2009/05/access-violation.html

[M.A.D.M.A.N.]

Совсем охренели. Может вам еще ключ от квартиры, где деньги лежат?

[Bargest]

if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
reset(f);

Допустим.

// Удаляем из файла повторяющиеся строки и переводим строки в массив
while not Seekeof(f) do
begin
readln(f, st); { считываем из файла строки }
probel:= Pos (' ',st); {находим координаты символа 'пробел' в конце строки}
Delete (st,probel,200); {удаляем все пробелы в конце каждой строки}

А если там 203 пробела? Поискали бы получше в гугле, нашли бы Trim.

N := N + 1; { увеличиваем переменную на единицу }

А где инициализация N?

repeat
begin
i := i + 1; { увеличиваем переменную на единицу }

А где инициализация I?

N := N + 1; { увеличиваем переменную на единицу }
repeat
begin
i := i + 1; { увеличиваем переменную на единицу }
a[i] := st; { записываем строки в массив }
end;
until i = N; { условие для окончания циклы }

No comment... Вам за количество строк кода платят?

end;

N_strok := 1;
for i := 1 to N do
begin

А если в файле 1007 строк, а массив до 1000?

flag := true;
for l := 1 to N_strok do

А если в файле 1005 уникальных строк, а массив до 1000?
Количество ошибок зашкаливает. 5 штук на такой короткий код. 4 из 5 могут привести к той самой ошибке A/V.

[ua3rad]

я не инициализировал N и i. С остальным разберусь.