TPasImplBlock

type TPasImplBlock = class(TPasImplElement)

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure FreeChildren(); override;

  procedure AddElement(); virtual;

  function AddCommand();

  function AddCommands;

  function AddBeginBlock;

  function AddRepeatUntil;

  function AddIfElse();

  function AddWhileDo();

  function AddWithDo();

  function AddCaseOf();

  function AddForLoop();

  function AddTry;

  function AddExceptOn();

  function AddRaise;

  function AddLabelMark();

  function AddAssign();

  function AddSimple();

  function CloseOnSemicolon; virtual;

  procedure ForEachCall(); override;

  Elements: TFPList;

end;

TPasImplBlock

TPasImplElement

TPasElement

TPasElementBase

TObject