Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Object Pascal / Как временно отключить range checking для участка программы, а затем вновь включить его?

Как временно отключить range checking для участка программы, а затем вновь включить его?

Можно сделать это, используя "IFOPT" и "DEFINE".

     type
       PSomeArray = ^TSomeArray;
       TSomeArray = array[0..0] of integer;

     procedure TForm1.Button1Click(Sender: TObject);
     var
       p : PSomeArray;
       i : integer;

     begin
     {$IFOPT R+}
       {$DEFINE CKRANGE}
       {$R-}
     {$ENDIF}
       GetMem(p, sizeof(integer) * 200);

       try
     for i := 1 to 200 do
       p[i] := i;
       finally
     FreeMem(p, sizeof(integer) * 200);
       end;

     {$IFDEF CKRANGE}
       {$UNDEF CKRANGE}
       {$R+}
     {$ENDIF}
     end;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru