Исключительные ситуации (Delphi)

[VadEr]

Добрый вечер!

Разрешите обратиться с таким вопросом: В моем задании нужно обработать искл. ситуацию при обращении к несуществующему элементу массива[0..i] (не динамический). Я так понимаю это class EAccessViolation, т.к. эта ошибка возникает при i<0 и обрабатывается после try. Но если i > чем max значение массива (на 7 едениц) эта ошибка не возникает. А если i больше, чем max на 8 и более, то ошибка в except не обрабатывается.

Как быть?

Выкладываю код.
Программа читает числа(не цифры) из Memo (между числами буквы) и заносит их в массив. Главная проблема - при наличии в Memo чисел больше 50, - цикл продолжает заносить их в массив, а исключения не происходит. И только когда массив основательно переполнен возникает EAccessViolation. Которое не обрабатывается в except.

Подскажите пожалуста, как обработать исключительную ситуацию обращения к несуществующему элементу массива.

procedure TForm1.Button2Click(Sender: TObject);
var
  i,j,k,z:integer;
  mas: array[0..49] of integer;
  str: string;
  n,res :real;
begin
  try
    n := StrToFloat(Edit2.Text); // степень
    for i := 0 to 49 do
        mas[i] := 0;

    j := 0;
    for i := 0 to Memo1.Lines.Count-1 do
        begin
          str := Memo1.Lines.Strings[i]; // получаем строку
            for k := 1 to Length(str) do
              if (str[k] >= '0') and (str[k] <= '9') then
                  begin
                      mas[j] := mas[j] + StrToInt(str[k]);
                      if  (str[k+1] <> '0') and (str[k+1] <> '1') and
                          (str[k+1] <> '2') and (str[k+1] <> '3') and
                          (str[k+1] <> '4') and (str[k+1] <> '5') and
                          (str[k+1] <> '6') and (str[k+1] <> '7') and
                          (str[k+1] <> '8') and (str[k+1] <> '9')
                      then Inc(j)  // увеличиваем счетчик массива
                      else mas[j] := mas[j] *10;
                  end;
        end;
    for z := 0 to 49 do
            begin
              res := mas[z];
              res := power(res, n);
              StringGrid1.Cells[z,1] := IntToStr(Trunc(res));
            end;
  except
     on EAccessViolation do
        begin
          ShowMessage('Обращение к несуществующему эл-ту массива!');
          Exit;
        end;

     on EConvertError do
        begin
          ShowMessage('Ошибка преобразования типов!');
          Exit;
        end;
  end;
end;

[Stilet]

i > чем max

Чет я это в твоем коде не увидел.

[VadEr]

В коде: max - это 49 (mas[0..49]). i и max я просто использовал только для объяснения проблемы. Насамом деле, если я напишу условие выхода из цикла как

.......
                    then Inc(j)  // увеличиваем счетчик массива
                      else mas[j] := mas[j] *10;
                      if j>50 then
                        begin
                         ShowMessage('Массив заполнен!');
                         goto go;
                        end;  
                  end;
        end;
go :  for z := 0 to 49 do
            begin
              res := mas[z];
              res := power(res, n);

- то как обработать исключительную ситуацию обращения к несуществующему эл-ту массива? Её, просто, не возникнет. Нужно именно исключение.

Помогите!

[Stilet]

Вот тее панацея:

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
{$R+}
 try
  for i:=1 to 4 do
   a[i]:=0;
 except
  ShowMessage('Вылезло');
 end;
end;

Включение проверки на выход за диапазон директивой $R

[VadEr]

Спасибо, но не получается.
Я так понял это ERangeError, а не EAccessViolation.
После включения {$R+}, ошибка ERangeError вылезает, если в Memo более 5 чисел, а нужно более 50.

[Stilet]

После включения {$R+}, ошибка ERangeError вылезает, если в Memo более 5 чисел, а нужно более 50.

Тогда прикрепляй сюда вексь проект в архиве. Так сразу я лично не скажу...

[VadEr]

Все, спасибо, разобрался!
{$R+} - эта дирректива, оказывается, еще и обращение к несуществующему символу в строке контролирует (сдесь был подвох).