| Description |
Lots of flexibility here! The Write method adds the specified values as a string to the end of the internal string, but without a line termination.
The Value may be one of the many data types - which gets converted into its string value. Or multiple Values may be passed as an array. Like a buffer.
|
|
| Microsoft MSDN Links |
System.IO
System.IO.BinaryWriter
|
|
|
| Using BinaryWriter and BinaryReader |
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
MyFileStream : System.IO.FileStream;
MyFileWriter : System.IO.BinaryWriter;
MyFileReader : System.IO.BinaryReader;
CharAsByte : Byte;
begin
// Create and open our binary file as a stream
MyFileStream := System.IO.File.Open('C:\DelphiBasics.txt',
System.IO.FileMode.Create);
// Create a BinaryWriter to allow writing to this file
MyFileWriter := System.IO.BinaryWriter.Create(MyFileStream);
// Write to the file
MyFileWriter.Write('A');
MyFileWriter.Write('BCD');
MyFileWriter.Write(175);
// Close the writer and the stream
MyFileWriter.Close;
MyFileStream.Close;
// Reopen the stream for reading
MyFileStream := System.IO.File.Open('C:\DelphiBasics.txt',
System.IO.FileMode.Open);
// Create a BinaryReader to allow the file to be read back
MyFileReader := System.IO.BinaryReader.Create(MyFileStream);
// Display the file contents
// Note : We must look for the 'EndOfStreamException'
// when using ReadByte to know when we are done
try
while 1 <> 0 do
begin
CharAsByte := MyFileReader.ReadByte;
Console.WriteLine('{0:X}', TObject(CharAsByte));
end;
except
On E : EndOfStreamException do
Console.WriteLine('End of file encountered');
end;
Console.Readline;
end.
| | Show full unit code | 41
3
42
43
44
AF
End of file encountered
|
| |
|
|
|