TInterfaceDeclaration = class(TBlockDeclaration)
|
Name |
Type |
Visibility |
Synopsis |
|
constructor |
public |
|
|
|
field |
protected |
|
|
|
procedure |
protected |
|
|
|
procedure |
protected |
|
|
|
|
constructor Create(adecl : TTextObject; aname : String; aancestors : TStrings; aid : String; avisibility : String; avisibilityType : TVisibilityType; asymboltype : String; alinenum : Cardinal; acomment : TComment; asection : TSection; aparentDecl : TBlockDeclaration);
Id : String;
procedure WriteHead; override;
procedure WriteMiddle; override;