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 - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-devel
