El método Free destruirá el objeto entero. Es mejor hacer lo que te indica
ecfisa.
Y en versiones actuales de Delphi ya puedes usar también el método Clear:
Código Delphi
[-]Var
LS :TStringStream;
Begin
LS.Clear;
Esto es porque Embarcadero cambió la herencia de la clase TStringStream de:
Código:
TStream
TStringStream
a:
Código:
TStream
TCustomMemoryStream
TMemoryStream (la cual declara el método Clear)
TBytesStream
TStringStream
Ojalá sea de utilidad, saludos.
Al González.