anchor.diff:  
   implementation
   
  -class function TTreeHelperRest.IsHead(const S: UnicodeString; ch: WideChar): boolean;
  +class function TTreeHelperRest.IsHeaderOfChar(const S: UnicodeString; ch: WideChar): boolean;
   var
     i: integer;
   begin
  
positive.code:   Result:= true;
  end;
  
  class function TTreeHelperRest.IsArr(const S: UnicodeString): boolean;
  const
    arr: UnicodeString = '-=\''"`:^~_*+#<>';
  var
    i: integer;
  begin
    for i:= 1 to Length(arr) do
      if IsHead(S, arr[i]) then
        exit(true);
    Result:= false;
  end;
  
negative.code: type
    TTreeHelperRest = class
    private
      class function IsHeaderOfChar(const S: UnicodeString; ch: WideChar): boolean;
      class function IsHeaderLine(const S: UnicodeString): boolean;
      class function GetLevel(ch: WideChar): integer;
    public
      class procedure GetHeaders(Ed: TATSynEdit; Data: TATTreeHelperRecords);
  