anchor.diff:  
   interface
   
  -uses uTypes, uBearLibItemsCommon, uPlayer;
  +uses Classes, uTypes, uBearLibItemsCommon, uPlayer;
   
   type
     TIntHelper = record helper for Int
  
positive.code:   Result := StringReplace(Result, '_', ' ', [rfReplaceAll]);
  end;
  
  end.
  
negative.code:   TStringHelper = record helper for
      string
      function GetName(const Pref: string): string;
    end;
  
  type
    TStringListHelper = class helper for TStringList
      function Join(const CharSeparator: Char): string;
      function Explode(const CharSeparator: Char; const Source: string): TStringList;
    end;
  
  type
  