Michael Van Canneyt wrote:
Len:=0;
For I:=X to Y do
Inc(Len,Length(L[i])); // S string, L list.
SetLength(S,Len);
P:=1;
For I:=X to Y do
begin
T:=L[i];
Len:=Length(T);
Move(T[1],S[P],Len);
inc(P,Len)
end;
This is the behavior you get using TStrings.Text property. See TStrings.GetTextStr function Luiz _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal
