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.
Geno Roupsky
2006/2/22, Vincent Snijders <[EMAIL PROTECTED]>:
Hi,
The program below exits with an error. I would expect the Delimiter to be copied
too, when a TStrings is assigned. Is this a bug?
Vincent
{$mode objfpc}{$H+}
uses
Classes;
var
s1, s2: TStrings;
begin
s1 := TStringList.Create;
s1.Delimiter := ';';
s2 := TStringList.Create;
s2.Assign(s1);
if s1.Delimiter<>s2.Delimiter then
Halt(1);
writeln('Success');
readln;
end.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
_______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel
