testcommentindent2.out

来自「格式化源码的最新板」· OUT 代码 · 共 119 行

unit TestCommentIndent2;

{ AFS 17 April 2004
  Test the comment indenting options

 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility }

interface
// a comment
uses
  // a comment
  SysUtils;
// a comment

// a comment
const
  // a comment
  foo = 3;
// a comment
var
  // a comment
  lb: boolean;
// a comment
type
  // a comment
  AnInteger = integer;
  // a comment
  TFooClass = class
    // a comment
  public
    // a comment
    procedure Bar;
    // a comment
  end;
// a comment

implementation
// a comment

uses
  // a comment
  Dialogs,
  // a comment
  Classes;
// a comment

{ TFooClass }

// a comment
procedure TFooClass.Bar;
// a comment
const
  // a comment
  LIMIT = 99;
  // a comment
var
  // a comment
  liCounter: integer;
  // a comment
begin
  // a comment
  for liCounter := 0 to LIMIT do
    // a comment
  begin
    // a comment
    lb := not lb;
    // a comment
  end;
  // a comment
end;
// a comment

// a comment
procedure TestTry;
// a comment
begin
  // a comment
  try
    // a comment
    lb := not lb;
    // a comment
  except
    // a comment
    ;
    // a comment
  end;
  // a comment
  try
    // a comment
    lb := not lb;
    // a comment
  except
    // a comment
    on E: Exception do
      // a comment
      ShowMessage('Era');
    // a comment
  end;
  // a comment
end;
// a comment

// a comment
initialization
  // a comment
  lb := False;
  begin
    // a comment
    lb := not lb;
    // a comment
  end;
  // a comment
finalization
  // a comment
  lb := False;
  // a comment
end.