freepascal.ru

Код: Выделить всё

try
  АллоцируемРесурс1;
  try
    //...
    АллоцируемРесурс2;
    try
       //...
    finally
      ОсвобождаемРесурс2;
    end;
    //...
  finally
    ОсвобождаемРесурс1;
  end;

except
  ОбрабатываемОшибку;
end;

Код: Выделить всё

procedure Some;
begin
  АлолцируемРесурсы;
  try
     //...
     if КакоеТоУсловие then
       Exit; // Все равно попадем в finally часть, хоть это и не исключение.
     //...
  finally
    ОсвобождаемРесурсы;
  end;
end;

Код: Выделить всё

try
if КакоеТоУсловие then
   begin 
    выполняем_действие;
    ОсвобождаемРесурсы; 
    exit; 
   end;
except
   ОсвобождаемРесурсы;
   exit;
end;

Код: Выделить всё

//Одна из множества процедур, вызываемая из RunBigOperation
procedure SomethingWrong;
begin
  //Выделяем память
  try
   ........
   raise Exception.Create('Что-то пошло не так');
  finally
   //Освождаем память
  end;
end;

procedure RunBigOperation();
begin
   try
      SomethingWrong();
   except
      //Большой код обработки исключения
   end;
end;

Код: Выделить всё

try
  // SomeAction
except
  on E: ESmallException do begin end;
end;

Код: Выделить всё

//...
fdata : TextFile; // текстовый файл для чтения / записи информации
  begin
    err_code := 0;
    //
    case ( opmode_ ) of
      1 : // чтение данных
        begin
          AssignFile ( fdata, filename_ );
          //
          {$I-} // передаём контроль ошибок ввода/вывода программе
          Reset ( fdata );
          {$I+} // восстанавливаем автоматический контроль ошибок ввода/вывода
          //
          if ( IOResult <> 0 ) then
            begin
              err_code := -101; 
              exit ( err_code ); // выход
            end; // if ( IOResult <> 0 )
          // если файл данных существует и открылся
  //...
      end;
  //...
  end;

Код: Выделить всё

unit GSW;
//
{$mode objfpc}{$H+}
//
interface
//
uses
  Classes, SysUtils, {FileUtil}, MedFilter;
type
  TGSW = class ( TObject )
  //
//...
end; // type