Graeme Geldenhuys schreef:
2009/10/23 Vincent Snijders <vsnijd...@vodafonevast.nl>:
Otherwise you cannot read it back. :-)
But using .WriteAnsiString() doesn't create a plain text file, so the
result is useless. And as my last post says, the method Gerard
suggested is also not 100%.
It seems extra hard to create a normal, plain, standard text file with
the TFileStream class. This should had this puzzle to a "Programming
Olympiad" - it's tougher than one thinks.
Anyway, so now I'm back to square one - unable to create a plain text
file with TFileStream. :-(
You want easy?
Then use
var
outfile: text;
begin
rewrite(outfile)';
writeln(outfile, 'Line 1');
writeln;
writeln(outfile, 'Line 3');
But you want streams?
procedure WriteSomeText(S: TStream);
var
Lines: TStrings;
begin
Lines := TStringList.Create;
Lines.Add('Line 1');
Lines.Add();
Lines.Add('Line 3');
Lines.SaveToStream(s);
Lines.Free;
end;
Vincent
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal