program System_IO_File;

{$APPTYPE CONSOLE}
{$AUTOBOX ON}


uses
  System.IO;
  
type
  FileTest = class
  public
    class procedure Main;
  end;

{ FileTest }

class procedure FileTest.Main;
var
  path2: string;
  path: string;
  s : string;
begin
  path := 'c:\temp\MyTest.txt';
  if (&File.Exists(path) = False) then
  begin
    // Create a file to write to.
    with &File.CreateText(path) do
    try
      WriteLine('Hello');
      WriteLine('And');
      WriteLine('Welcome');
    finally
      //dispose StreamWriter
      Free;
    end;

    // Open the file to read from.
    with &File.OpenText(path) do
    try
      s := '';
      s := ReadLine;
      while (s <> '') do
      begin
        Console.WriteLine(s);
        s := ReadLine;
      end;
    finally
      //dispose StreamReader
      Free;
    end;
  end;

  try
    path2 := (path + 'temp');

    // Ensure that the target does not exist.
    &File.Delete(path2);

    // Copy the file.
    &File.Copy(path, path2);
    Console.WriteLine('{0} was copied to {1}.', 
                      path, 
                      path2);

    // Delete the newly created file.
    &File.Delete(path2);
    Console.WriteLine('{0} was successfully deleted.', 
                      path2);
  except
    on e: Exception do
      Console.WriteLine('The process failed: {0}', 
                        e.ToString);
  end;
end; //FileTest.Main

begin //FileTest.Main
  FileTest.Main;
end.