testclasslines.out

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

unit TestClassLines;

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

 This unit test indentation of run-on-lines in class functions
 and thereby recognition of class functions & class headers
 Rather specialised, isn't it?
}

interface

type

  TSomeClass = class
    class
    function dink: boolean;
  end;


implementation

{ TSomeClass }

class function TSomeClass.dink: boolean;
begin
  Result := False;
end;

end.