|
|
| 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;
Reader : System.IO.StreamReader;
Writer : 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
Writer := FileInfo.OpenWrite;
// Write to the file
Writer.WriteByte(65); // Chr(65) = 'A'
Writer.WriteByte(66); // Chr(66) = 'B'
Writer.WriteByte(67); // Chr(67) = 'C'
// Close the file
Writer.Close;
// Re-open for reading
Reader := FileInfo.OpenText;
// Display the contents
Console.WriteLine(Reader.ReadToEnd);
// Close the file
Reader.Close;
Console.Readline;
end.
| | Show full unit code | ABC
|
| |
|
|
|