anchor.diff:        CSVBuilder.AppendCellRFC4180(fields.Get(i).SerializedFieldName);
       CSVBuilder.AppendRow;
   
  +    formatString := '#';
  +
  +    for i := 1 to aFractionPartDigits do
  +    begin
  +      if i = 1 then
  +        formatString := formatString + '.#'
  +      else
  +        formatString := formatString + '#';
  +    end;
  +
       for i := 0 to aDataProvider.Count - 1 do
       begin
         curDatum := aDataProvider.GetDatum(i);
  
positive.code:   stream : TStringStream;
    curDatum : IVDDatum;
    value : Variant;
  begin
    Result := '';
    stream := TStringStream.Create;
  
negative.code:   mDataProviderInterfaces, mNamingConventions;
  
  function SerializeDataProviderToCsv (const aDataProvider : IVDDataProvider; const aSourceNamingConvention, aDestinationNamingConvention : TmNamingConvention;
    const aFractionPartDigits : byte;
    const aQuoteChar : string = '"'; const aDelimiter : Char = ','): String;
  
  
  