mop/template/.lazarus/laz_indentation.pas

   1 unit Indentation;
   2
   3 {$mode objfpc}{$H+}
   4
   5 interface
   6
   7 uses
   8   Classes, SysUtils;
   9
  10 type
  11   TEnums = (
  12     enum1,
  13     enum2,
  14     enum3
  15     );
  16
  17   TMyRecord = record
  18     i: integer;
  19   end;
  20   PMyRecord = ^TMyRecord;
  21
  22   { TMyClass }
  23
  24   TMyClass = class(TObject)
  25   public
  26     procedure DoSomething1(a, b, c: integer);
  27     procedure Code;
  28   end;
  29
  30 implementation
  31
  32 { TMyClass }
  33
  34 procedure TMyClass.DoSomething1(a, b, c: integer;
  35   LongParameter1: TSomeLongParameter);
  36 var
  37   i: integer;
  38 begin
  39   if i=0 then
  40   begin
  41     repeat
  42       if a=2 then
  43         ;
  44     until b=3;
  45     try
  46       Code;
  47     finally
  48       Code;
  49     end;
  50     try
  51       Code;
  52     except
  53       on e: exception do
  54         ;
  55     end;
  56   end
  57   else
  58   begin
  59     case c of
  60     1:
  61       Code;
  62     2:
  63       begin
  64         code;
  65       end;
  66     else
  67       code;
  68     end;
  69   end;
  70 end;
  71
  72 procedure TMyClass.Code;
  73
  74   procedure SubProc;
  75   begin
  76
  77   end;
  78
  79 var
  80   i: Integer;
  81 begin
  82   writeln('TMyClass.Code ');
  83   repeat
  84
  85   until ;
  86   for i:=1 to 3 do
  87     Code;
  88   for i:=1 to 3 do
  89   begin
  90     Code;
  91   end;
  92 end;
  93
  94 end.
  95