{%MainUnit unit1.pas} procedure Do1; procedure BeginBlock(Typ: TFABBlockType); var ParentBlock: PBlock; begin if (Stack.Top>=0) then begin ParentBlock:=@Stack.Stack[Stack.Top]; if (ParentBlock^.InnerStartPos=AtomStart) and (Policies<>nil) then begin Policies.AddIndent(ParentBlock^.Typ,Typ,ParentBlock^.InnerIdent); end; Stack.BeginBlock(Typ,AtomStart); {$IFDEF ShowCodeBeautifierParser} DebugLn([GetIndentStr(Stack.Top*2),'BeginBlock ',EnumToStr(Typ),' ',GetAtomString(@Src[AtomStart],NestedComments),' at ',PosToStr(p)]); {$ENDIF} end; begin end;