Program PNETStreamReader;

{$APPTYPE CONSOLE}

uses System.IO;

var
  fStream : FileStream;
  sr : StreamReader;
begin
  if (ParamCount = 0) then
  begin
    ConSole.WriteLine('½Ð¿é¤JÀÉ®×¦WºÙ.' );
    exit;
  end;

  fStream := FileStream.Create(ParamStr(1), FileMode.Open, FileAccess.Read);
  sr := StreamReader.Create(fStream);
  try
    while (sr.Peek > -1) do
    begin
      Console.WriteLine(sr.ReadLine);
    end;    // while
  finally
    sr.Close;
  end;
end.
