Object Pascal/Przetwarzanie plików: Różnice pomiędzy wersjami

Usunięta treść Dodana treść
BartekChom (dyskusja | edycje)
styl, prosty przykład
BartekChom (dyskusja | edycje)
EOF
Linia 128:
 
Do pisania do pliku wcale nie musisz otwierać pliku instrukcją <code>Rewrite</code>, która kasuje zawartość pliku! Instrukcja <code>Append</code> otwiera plik w trybie "do dopisu", w którym (jak sama nazwa mówi) dopisuje się dane do pliku. Należy pamiętać że procedurę <code>Append</code> możemy używać tylko i wyłącznie do obsługi plików tekstowych.
 
Warto zwrócić uwagę na funkcję <code>EOF(plik)</code> w powyższym programie. Informuje ona czy jesteśmy na końcu pliku (''end-of-file''). <code>EOF</code> bez argumentów sprawdza, czy wprowadzono znak końca pliku z klawiatury (crtl+D w Linuksie, ctrl+Z w DOSie).
<source lang="pascal">
program czytaj;
 
const
n = 10;
 
var
tablica : array [1..n] of integer;
i, j : integer;
 
begin
i := 1;
{wczytuje dane aż użytkownik wprowadzi znak końca pliku lub skończy się miejsce w tablicy}
while not EOF do
begin
readln(tablica[i]);
i := i + 1;
if i > n then
begin
writeln('Brak miejsca w tablicy.');
break; {przerywa pętlę}
end;
end;
{wypisuje dane}
for j := 1 to i-1 do
begin
writeln(tablica[j]);
end;
readln;
end.
</source>