End/ru

End является ключевым словом, предназначенным для:

• завершения блока инструкций, начинающихся зарезервированными словами Begin или Case;
• завершения объявлений полей в записях;
• завершения конструкций Try .. Finally или Try .. Except.

Оно также используется для завершения модуля, не имеющего кода в разделе initialization.

Например:

  procedure Proc1;
  
  var a,b: integer;
  
  begin
    (..)
  end;

Оператор end является одним из исключений из правил, согласно которому каждый оператор должен оканчиваться точкой с запятой. Для оператора, предшествующего оператору end, не требуется ставить точку с запятой.

Оператор end также используется для указания конца файла с исходным кодом на языке Pascal. В этом случае за ним ставится точка, а не точка с запятой (в приведенном ниже примере последняя точка с запятой является не обязательной):

   
  program Proc2;
  var
    SL: TStrings;
  begin
    SL := TStringlist.Create;
    try
      (..)
    finally
      SL.Free;
    end;
  end.

Оператор end используется для указания конца модуля:

  unit detent;
  uses math;
 
  procedure delta(r:real);
 
  implementation
 
  procedure delta;
  begin
 
  ...
 
  end;
 
  ...
  (* Примечание: Нет соответствующего оператора '''begin''' *)
 
  end.

Также оператор end предназначен для завершения описания записей:

 Type
   ExampleRecord = Record
                     Values: array [1..200] of real;
                     NumValues: Integer; { holds the actual number of points in the array }
                     Average: Real { holds the average or mean of the values in the array }
                   End;

From the Free Pascal wiki, page "End/ru", as it stood on 2020-02-14 after a change by Trev, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's Licensing page. If you have concerns about this material, message the admin.