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

Reply via email to