glscene/pasdoc: Инструмент создания системной HTML/CHM документации проектов на ObjectPascal (Delphi, Free Pascal, Lazarus)

tests/ok_class_function.pas

31 строка533 B

Michalis Kamburelis

* Fixed handling of class methods (broken by me in revision 1.59 of PasDoc_Parser.pas). Testcase from Richard B Winston added.

29 май 2005, 00:15

29 май 2005, 00:156db7b32

// Test for handling class functions in PasDoc
unit ok_class_function;

interface

type
  // @abstract(This class is designed to see if PasDoc can
  // parse class functions correctly.)
  TDummy = class(TObject)
  public
    // Test To see if PasDoc can handle this.
    Class Function MyFunction: integer;
    // Test To see if PasDoc can handle this.
    class procedure MyProcedure;
  end;

implementation

{ TDummy }

class function TDummy.MyFunction: integer;
begin

end;

class procedure TDummy.MyProcedure;
begin

end;

end.