[fpc-devel] TStringList.commatext

[Martin Pekar]

Hi,




sl.CommaText:=sl.CommaText;

sometimes changes strings in the list



Function TStrings.GetDelimitedText: string;
Procedure TStrings.SetDelimitedText(const AValue: string);
and removed


changed parts are stil there as coments

I found some errors in TSringList.CommaText and tryed to fix it. For variable sl:TStringList, command - when list contained more then one string and last string was '', previous command removed last string from the list - string in a list was not qouted in commatext, if it contained #0 before first '"' or ',' or ' ' - commatext for empty list was '""', just like for list containing one empty string, so previous command changed empty list into list with one empty string I am sending changed rtl\objpas\classes\stringl.inc in attachment. I have changed methods Function GetNextQuotedChar (var P : PChar; Var S : String; Delim,Quote : Char): Boolean; Martin

stringl.inc
Description: Binary data

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel