End/ru

From Lazarus wiki
Jump to navigationJump to search

Deutsch (de) English (en) suomi (fi) français (fr) русский (ru)

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

Оно также используется для завершения модуля, не имеющего кода в разделе 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;


Ключевые слова: begindoelseendforifrepeatthenuntilwhile