Hi,
What am I doing wrong in the following code? It always fails on test
number 2. The DataString property is returning garbage, and not the
value equal to the 'Graeme Geldenhuys' string.
----------------------------------------------
var
srcstream: TStringStream;
s, f: string;
i: integer;
begin
s := 'Graeme Geldenhuys';
srcstream := TStringStream.Create('');
{ I purposely do this, because in my real-world code TStringStream will
be populated with many .Write() statements. }
i := srcstream.Write(s, Length(s));
CheckEquals(i, Length(s), 'failed on length of string'); // passes
srcstream.Seek(0, soFromBeginning); // not sure if needed
f := srcstream.DataString;
CheckEquals(s, f, 'Failed on string content 2'); // Fails!
srcstream.Free;
end;
----------------------------------------------
--
Regards,
- Graeme -
_______________________________________________
fpGUI - a cross-platform Free Pascal GUI toolkit
http://fpgui.sourceforge.net
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
