| Description |
If the current stream has not been exhausted, the next character, or block of characters/bytes are returned.
The stream position is updated accordingly.
In the first syntax, the Read method returns the next stream character is returned as an integer. The integer value is the numeric equivalent of the character, or -1 if the string was exhausted.
In the second and third syntaxes, an attempt is made to read up to Count bytes/characters. These are overlaid onto the Bytes or Characters array as appropriate from StartIndex. The returned integer value is the number of bytes/characters overlaid. Zero if the string was already exhausted before the read.
|
| | Notes | You must set the length of the target Byte/Character array in the second syntax, and it must have sufficient capacity to hold the returned bytes/characters.
|
|
| Microsoft MSDN Links |
System.IO
System.IO.BinaryReader
|
|
|
| Reading a single character at a time |
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
MyFileStream : System.IO.FileStream;
MyFileWriter : System.IO.BinaryWriter;
MyFileReader : System.IO.BinaryReader;
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('B');
MyFileWriter.Write('C');
// 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
while MyFileReader.PeekChar <> -1 do
Console.WriteLine(Char(MyFileReader.Read));
// Close the reader and the stream
MyFileReader.Close;
MyFileStream.Close;
Console.Readline;
end.
| | Show full unit code | A
B
C
| | | Reading blocks of characters | program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
MyFileStream : System.IO.FileStream;
MyFileWriter : System.IO.BinaryWriter;
MyFileReader : System.IO.BinaryReader;
MyCharArray : Array of Char;
Index : Integer;
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('B');
MyFileWriter.Write('C');
MyFileWriter.Write(49); // Chr(49) = '1'
MyFileWriter.Write(50); // Chr(50) = '2'
MyFileWriter.Write(51); // Chr(51) = '3'
MyFileWriter.Write(52); // Chr(52) = '4'
// 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);
// Declare our array to hold the returned data
SetLength(MyCharArray, 10);
// Get the file contents 3 characters at a time into our array
Index := 0;
while MyFileReader.PeekChar <> -1 do
begin
MyFileReader.Read(MyCharArray, index, 3);
Index := Index + 3;
end;
// Display our array contents
Console.WriteLine(MyCharArray);
// Close the reader and the stream
MyFileReader.Close;
MyFileStream.Close;
Console.Readline;
end.
| | Show full unit code | ABC1234
|
| |
|
|
|