anchor.diff:    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
  
positive.code:   Result := StringReplace(Result, '_', ' ', [rfReplaceAll]);
  end;
  
  end.
  
negative.code: 
  interface
  
  uses Classes, uTypes, uBearLibItemsCommon, uPlayer;
  
  type
    TIntHelper = record helper for Int
  