testrunondef.out

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

unit TestRunOnDef;

{ AFS 19 March 2000
 This unit compiles but is not semantically meaningfull
 it is test cases for the code formatting utility

this unit tests indentation of class & procedure defs that run on to
 more than one line
 }

interface

type
  THasLongProcs = class
  public
    procedure DoSomething(var piALongParamter: integer;
      pbAnotherParamter: boolean; pmMoreBetterMoney: currency);

    { this will be broken up }
    function DoSomethingElseAlthogether(var piALongParamter: integer;
      pbAnotherParamter: boolean; pmMoreBetterMoney: currency): TObject; virtual; safecall;

    function HasModifiers: integer;
      virtual; safecall;
  end;



type

  TVeryExtremelyLongProcedure1 = function(Fred: integer): currency of object;
  TVeryExtremelyLongProcedure2 =
    function(Fred: integer): currency of object;
  TVeryExtremelyLongProcedure3 = function(Fred: integer): currency of object;
  TVeryExtremelyLongProcedure4 = function(Fred: integer): currency of object;
  TVeryExtremelyLongProcedure5 = function(Fred: integer): currency
    of object;
  DissimilarStuff = (Apples, Oranges,
    Deconstructionism, CompostHeap);


implementation

{ THasLongProcs }

procedure THasLongProcs.DoSomething(var piALongParamter: integer;
  pbAnotherParamter: boolean; pmMoreBetterMoney: currency);
begin

end;

function THasLongProcs.DoSomethingElseAlthogether(var piALongParamter: integer;
  pbAnotherParamter: boolean; pmMoreBetterMoney: currency): TObject;
begin
  Result := nil;
end;

function THasLongProcs.HasModifiers: integer;
begin
  Result := -1;
end;

end.