Assign

Asigneaza un fisier (definit prin calea catre el) catre o variabila de tip fisier. Toate operatiile ulterioare care folosesc acel fisier vor utiliza variabila acestuia. Asocierea dintre variabila si respectivul fisier va exista pana la urmatoarea asignare a variabilei catre alt fisier.

De exemplu:

PROGRAM Ex1_fisiere_text;

...{program pentru crearea unui fisier text}

VAR

...f:text;

...s:STRING;

BEGIN

...Assign(f,'Fis.txt');

...Rewrite(f);

...writeln('Introduceti textul structurat pe linii');

...writeln('Pentru terminare tastati ^Z');

...WHILE NOT eof DO

...BEGIN

......readln(s);

......writeln(f,s)

...END;

...Close(f)

END {Ex1_fisiere_text}.

 

Iar rezultatul este:

Introduceti textul structurat pe linii

Pentru terminare tastati ^Z

Fisierul text contine o succesiune de caractere ASCII

incheiata cu caracterul ^Z, care are rol de marcator

sfarsit de fisier. ^Z