anchor.diff:    end
     else
       Result := Self.FEncoding.GetString(Bytes, 0, Size);
  +end;
  +{$ELSE}
  +function TStringStreamHelper.GetDataString: string;
  +var
  +  Encoding: TEncoding;
  +  Bytes: TBytes;
  +begin
  +  Encoding := nil;
  +  SetLength(Bytes, Self.Size);
  +  Bytes := BytesOf(DataString);
  +  TEncoding.GetBufferEncoding(Bytes, Encoding);
  +  Result := Encoding.GetString(Bytes, Length(Encoding.GetPreamble), Size);
   end;
   {$ENDIF}
   
  
positive.code: end;
  
  end.
  
  
negative.code:   end
    else
      StringStream := TStringStream(SourceStream);
    FLexer.Origin := PChar(StringStream.GetDataString);
    ParseFile;
    if OwnStream then
      StringStream.Free;
  