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

tests/ok_interface_implicit.pas

26 строк341 B

Michalis Kamburelis

* Default visibility of everything besides a class should be "public" (not using implicit). Testcase added to tests/ok_interface_implicit.pas

13 дек 2006, 07:28

13 дек 2006, 07:28b404dfd

unit ok_interface_implicit;

interface

type
  IMyInterface = interface
    procedure PublicMethod;
  end;

  TMyRecord = record
    PublicField: Integer;
  end;

  TMyPackedRecord = packed record
    PublicField: Integer;
  end;

  TMyClass = class
    ImplicitField: Integer;
  public
    PublicField: Integer;
  end;

implementation

end.