Umístnení souboru www.TrSek.com/zadania/textovy_subor.pas{ TEXTOVY_SUBOR.PAS Copyright (c) Pheo }
{ Program ktorý vloží ¾ubovo¾ný text do súboru a naèíta text zo }
{ súboru. }
{ }
{ Datum:05.04.2005 http://www.trsek.com }
Program Textovy_subor; {Textove subory}
uses crt;
var f : text; {Definovanie premennej typu textovy subor }
znak : Char;
texty: string;
begin
clrscr;
Assign(f,'text.txt'); {Priradenie suborovej premennej meno vonkajsieho suboru}
Rewrite(f); {Vytvorenie suboru}
WriteLn(f, 'Tento text je pridany do noveho suboru');
Close(f); {Zatvorenie suboru}
Append(f); {Otvorenie suboru pre pridavanie}
writeln('Napis nieco:');
read(texty);
WriteLn(f,texty);
Close(f);
Assign(f,'text.txt');
Reset(f); {Otvorenie suboru pre citanie}
while not Eof(f) do {Cyklus sa vykonava pokial nie je koniec suboru}
begin
Read(f,znak); {Nacitanie 1 znaku zo suboru}
Write(znak); {Vypis znaku na obrazovku}
end;
readln;
end.