CD Action 48/cdactioncoverdisc482000.iso/Bonus/bon.exe/pascal/prog052.pas

Pascal/Delphi Source File | 2000-03-24 | 395b | 26 lines

{program052 - Odczyt pliku}

program program052;
 uses crt;
  var sciezka:string;
      plik:text;
      tekst:string;

procedure odczytpliku;
 begin
  sciezka:='c:\roboczy.txt';
  assign(plik,sciezka);
  reset(plik);
  while not eof(plik) do
   begin
    readln(plik,tekst);
    writeln(tekst);
   end;
  close(plik);
 end;

begin
 clrscr;
 odczytpliku;
 readkey;
end.