|
|
| Open a file for writing and then write to it and read from it |
program Project1;
{$APPTYPE CONSOLE}
uses
System.IO;
var
FileInfo : System.IO.FileInfo;
Stream : System.IO.FileStream;
MyByte : Integer;
begin
// Create a FileInfo object for a text file
FileInfo := System.IO.FileInfo.Create('C:\DelphiBasics.txt');
// Open the file for writing
Stream := FileInfo.OpenWrite;
// Write to the file
Stream.WriteByte(65); // Chr(65) = 'A'
Stream.WriteByte(66); // Chr(66) = 'B'
Stream.WriteByte(67); // Chr(67) = 'C'
// Close the file
Stream.Close;
// Re-open for reading
Stream := FileInfo.OpenRead;
// Display the contents
MyByte := Stream.ReadByte;
while MyByte >= 0 do
begin
Console.Write(Char(MyByte));
MyByte := Stream.ReadByte;
end;
// Close the stream
Stream.Close;
Console.Readline;
end.
| | Show full unit code | ABC
|
| |
|
|
|