Przetwarzanie plików

Schemat przetwarzania plików dowolnej klasy:
1. opis zmiennej plikowej w części opisowej
2. skojarzenie pliku z fizycznym zbiorem danych
3. otwarcie pliku
4. wykonanie operacji na pliku
5. zamknięcie pliku

Do skojarzenia zmiennej plikowej z fizycznym zbiorem danych
służy procedura standardowa Assign, której wywołanie ma postać:

Assign(identifikator-pliku, wyrażenie-łańcuchowe)
Wymaga się,że plik o podanym identyfikatorze nie może być 
już otwarty.Łańcuch nie może być dłuższy niż 79 znaków.

var plik: file of real;

...

Assign(plik,'C:\pliki\zb.txt');

Otwieranie i zamykanie pliku
Standardowe procedury otwierania pliku:
Rewrite, Reset, Append

Rewrite(plik) powoduje po otwarciu pliku ustawienie 
na początku zbioru (rewrite tworzy plik, jeśli nie istnieje
lub otwiera i usuwa jego zawartość).

Reset (plik) powoduje otwarcie pliku w trybie do odczytu.
Append(plik) dotyczy tylko plików tekstowych, 
umożliwia dopisywanie na końcu zbioru. 

Close(plik) zamyka plik.


program zapisdopliku;
uses crt;
var plik: text;
begin
  clrscr;
  assign(plik,'C:\pliki\z1.txt');
  rewrite(plik);
  writeln(plik,'pierwsza linijka pliku');
  writeln(plik,'druga linijka pliku');
  close(plik);
  readkey;
end.

program odczytywanie;
uses crt,dos;
var plik:text;
   linia:string;
begin
  clrscr;
  if fsearch('c:\pliki\z1.txt','')='' then
  begin
    writeln('brak pliku');
  end else
  begin
    assign(plik,'c:\pliki\z1.txt');
    reset(plik);
    readln(plik,linia);
    close(plik);
    writeln(linia);
  end;
  readkey;
end.

program dopisywanie;
uses crt;
var plik:text;
begin
  assign(plik,'c:\pliki\z1.txt');
  append(plik);
  writeln('Ala ma kota');
  close(plik);
end.

program odczytpliku;
uses crt;
var Plik:text;
   linia:string;
begin
 clrscr;
 assign(plik,'c:\pliki\z1.txt');
 Reset(plik);
 while not eof(plik) do
 begin
  readln(plik,linia);
  writeln(linia);
 end;
 close(plik);
 readkey;
end.