anchor.diff:      procedure RefactorFileText();
       procedure LoadFile( filename : string );
       function CheckEOF() : boolean;
  +    procedure CutSymbol( s : string; var str : string );
     public
       constructor Create();
       procedure BuildGraph( pathToDpr : string );
  
positive.code:       end;
        if ( str[1] = #39 ) then
        begin
          lastUnitId := GetUnitId( unitForAnalyse[ unitForAnalyse.Count - 1] );
          del_pos := PosEx( #39, str );
          Delete( str, del_pos, 1 );
          del_pos := PosEx( #39, str );
          Delete( str, del_pos, 1 );
          del_pos := PosEx( ',', str );
          if del_pos > 0 then
            Delete( str, del_pos, 1 );
          del_pos := PosEx( ';', str );
          if del_pos > 0 then
            Delete( str, del_pos, 1 );
          nonSystemUnitFile[lastUnitId] := path + str;
        end;
  
      end;
  
    until SameText(str, 'begin');
    unitForAnalyse.Delete( unitForAnalyse.Count - 1 );
  end;
  
  procedure TDependenciesGrapher.LoadFile( filename : string );
  
negative.code:   end;
  
    // Deleting {} comments
    i := 0;
    repeat
      i := PosEx( '{', fileOfText, i + 1 );
      if i > 0 then
      begin
        j := PosEx( '}', fileOfText, i + 1 );
        if j > 0 then
          delete( fileOfText, i, j - i + 1 );
      end;
    until i = 0;
    // Deleting (* *) comments
    i := 0;
    repeat
      i := PosEx( '(*', fileOfText, i + 1 );
      if i > 0 then
      begin
        j := PosEx( '*)', fileOfText, i + 1 );
        if j > 0 then
          delete( fileOfText, i, j - i + 2 );
      end;
    until i = 0;
    // Deleting // comments
    i := 1;
    while i < Length( fileOfText )  do
  