[fpc-devel] TStrings.Assign doesn't copy Delimiter

[Geno Roupsky]

Well this is the way borland implemented it from the begining.

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 <vsnijders at quicknet.nl>:
>
> 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 at lists.freepascal.org
> http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20060223/4aa0379d/attachment.html>