TWriter (Delphi)
Contents
Description
This code example indicates how to use the TWriter class in order to write to a file using streams.
Code
uses
System.SysUtils, System.Classes;
const
myString =
'This is a set of code examples illustrating the usage of TReader and TWriter';
anotherString = 'This is another line';
anotherStringTwo = 'And another line';
var
FileStream: TFileStream;
Writer: TWriter;
I: Integer;
myStringBuilder: TStringBuilder;
begin
{ Create the TFileStream object and the TWriter used to write data into files. }
FileStream := TFileStream.Create
('C:\Users\Public\Documents\RAD Studio\stream.txt',
fmCreate or fmOpenWrite or fmShareDenyNone);
{ $FF = 255. Used in creating the TWriter object as the second parameter : Buffer size. }
Writer := TWriter.Create(FileStream, $FF);
{ Create the string builder }
myStringBuilder := TStringBuilder.Create;
{ Append content to the string builder }
myStringBuilder.Append(myString);
myStringBuilder.AppendLine;
myStringBuilder.Append(anotherString);
myStringBuilder.AppendLine;
myStringBuilder.Append(anotherStringTwo);
{ Commence writing to file }
Writer.WriteListBegin;
Writer.WriteString(myStringBuilder.ToString);
Writer.WriteListEnd;
Writer.Destroy;
FileStream.Destroy;
end.
Uses