anchor.diff:    StrSingleQuote = CharSingleQuote;
     StrDoubleQuote = CharDoubleQuote;
   
  -TYPE
  -    TSetOfChars = set of char;
  -
  -// ----------- Character testing functions -----------------------
  -
   type
  +  TSetOfChars = set of char;
  +
     TCharMatchFunction = function( const a: char ): boolean;
  +
  +
  +  TSerializableStringList = class(TObject)
  +  private
  +    stringList: TStringList;
  +  public
  +    constructor Create;
  +    destructor  Destroy; override;
  +    function    getCount : LongInt;
  +    function    get(const anIndex : LongInt) : String;
  +    function    getSerializedString : String;
  +    procedure   add(const aString : String);
  +    procedure   readValuesFromSerializedString(const aSerializedString : String);
  +  end;
  +
   
   // Returns true if c is a digit 0..9
   Function IsDigit( const c: char ): boolean;
  
positive.code:                            var KeyValue: string );
  
  // Removes spaces around the separator in the given string
  Procedure RemoveSeparatorSpaces( var S: string;
                                   const Separator:string );
  
  {$ifdef os2}
  // ------------ Ansi String utilities ------------------------
  
negative.code: 
    if Result[ Length( Result ) ] = StrDoubleQuote then
      Delete( Result, Length( Result ), 1 );
  end;
  
  Function StrInSingleQuotes(const aString : String) : String;
  begin
    Result := StrSingleQuote + aString + StrSingleQuote;
  end;
  
  Function StrInDoubleQuotes(const aString : String) : String;
  begin
    Result := StrDoubleQuote + aString + StrDoubleQuote;
  end;
  
  Function SubstituteChar( const S: string; const Find: Char; const Replace: Char ): string;
  