Well this is the way borland implemented it from the begining.<br>
<br>
Although it makes sense to copy the delimiter too there is a lot of code out there and some may be broken if this is changed.<br>
<br>
Geno Roupsky<br><br><div><span class="gmail_quote">2006/2/22, Vincent Snijders <<a href="mailto:vsnijders@quicknet.nl">vsnijders@quicknet.nl</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
Hi,<br><br>The program below exits with an error. I would expect the Delimiter to be copied<br>too, when a TStrings is assigned. Is this a bug?<br><br>Vincent<br><br>{$mode objfpc}{$H+}<br><br>uses<br>   Classes;<br><br>var
<br>   s1, s2: TStrings;<br><br>begin<br>   s1 := TStringList.Create;<br>   s1.Delimiter := ';';<br>   s2 := TStringList.Create;<br>   s2.Assign(s1);<br>   if s1.Delimiter<>s2.Delimiter then<br>     Halt(1);<br>   writeln('Success');
<br>   readln;<br>end.<br><br>_______________________________________________<br>fpc-devel maillist  -  <a href="mailto:fpc-devel@lists.freepascal.org">fpc-devel@lists.freepascal.org</a><br><a href="http://lists.freepascal.org/mailman/listinfo/fpc-devel">
http://lists.freepascal.org/mailman/listinfo/fpc-devel</a><br></blockquote></div><br>