Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.10.2009, 14:42   #1
k1r1ch
ACM!
Форумчанин
 
Аватар для k1r1ch
 
Регистрация: 19.06.2009
Сообщений: 382
По умолчанию Ошибка Read

Почему здесь выскакивает AccessViolation?
Код:
type
  TArr = array [1..1000] of integer;
var
  Input, Output: Text;
  Arr, ArrRes: TArr;
  Counter, i, b, c: integer;

begin
    Assign(Input, 'Input2.txt');
    Reset(Input);
    b := 0;
    while not Eof(Input) do
      begin
      inc(b);
-->|Read(Input, Arr[i]);
      end;
    Close(Input);
end;
Файл существует, и в нем записано вот это:
Код:
20 20 213 -21 -32 -23 345 -2 43 443 0 -3
k1r1ch вне форума Ответить с цитированием
Старый 17.10.2009, 14:55   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

у вас b операнд цикла а не i
(которая не инициализирована вообще)
Код:
    while not Eof(Input) do
      begin
      inc(b);
-->|Read(Input, [B]Arr);
      end;
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 17.10.2009, 15:02   #3
k1r1ch
ACM!
Форумчанин
 
Аватар для k1r1ch
 
Регистрация: 19.06.2009
Сообщений: 382
По умолчанию

Да... тупая ошибка, но фига ли компилятор не написал undeclared indetifier?
А все-все, понял) спасибо
k1r1ch вне форума Ответить с цитированием
Старый 17.10.2009, 15:03   #4
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Цитата:
undeclared indetifier?
- Это если ты его в Var не написал.
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ошибка - память не может быть read volf Софт 31 20.08.2015 16:39
ошибка Query1: Cannot modify a read-only dataset demo_nik БД в Delphi 5 07.11.2008 19:16
Ошибка: "Access violation at address 00454F01 in module 'Project1.exe'. Read of address 00000000. Fen1x Общие вопросы Delphi 8 13.10.2007 20:13