testautomated.out

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

unit TestAutomated;

{ AFS 15 July 2007

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

 This unit tests use of the "automated" keyword
}

interface

type
  TPublicAndAutomated = class
  public
    function PublicMethod: boolean;
  automated
    function AuomatedMethod: wordbool; dispid 1;
  end;

  TAutomatedOnly = class
  automated
    function AuomatedMethod: wordbool; dispid 1;
  end;

implementation

{ TMyClass }

function TPublicAndAutomated.AuomatedMethod: wordbool;
begin
  Result := True;
end;

function TPublicAndAutomated.PublicMethod: boolean;
begin
  Result := True;
end;

{ TAutomatedOnly }

function TAutomatedOnly.AuomatedMethod: wordbool;
begin
  Result := True;
end;

end.