Ver. 1.0 Beta, Nie masz kompilatora? Teraz mo¿esz pisaæ skrypty ONLINE! Wersja podstawowa -nie zawiera wszystkich poleceñ Pascala. S³u¿y do nauki podstaw

Pascal

Wsteczwstecz Data i czas
W górêw górê Podstawy Pascala

Obs³uga plików w turbo pascalu


Pliki tekstowe
Pliki binarne
Obs³uga b³êdów

Pliki binarne


Wczytywanie i zapisywanie w plikach binarnych odbywa siê za pomoc± instrukcji BlockRead, BlockWrite. Jest to bardzo szybka metoda zapisu i odczytu. Najlepiej zobaczyæ prosty przyk³ad w pomocy pascala, który kopiuje plik podany jako parametr programu na miejsce podane drugim parametrem




{Blockrd.PAS}
{Sample code for the BlockRead and BlockWrite procedures.}
program CopyFile;
{ Simple, fast file copy program with NO error-checking }

{ For Windows: }
{ uses WinCrt; }

var
 FromF, ToF: file; {uchwyty do plikow}
 NumRead, NumWritten: Word;
 Buf: array[1..2048] of Char; {bufor, do ktorego beda trafialy wczytane dane z pliku pierwszego}

begin
 Assign(FromF, ParamStr(1)); { Otwiera plik podany przez pierwszy parametr }
 Reset(FromF, 1);
 Assign(ToF, ParamStr(2)); { Przygotowuje do zapisu drugi plik }
 Rewrite(ToF, 1);  { Record size = 1 }
 Writeln('Copying ', FileSize(FromF), ' bytes...');
 repeat
   BlockRead(FromF, Buf, SizeOf(Buf), NumRead); {odczytywanie bloku o rozmiarze 2KB (NumRead teraz okresla rozmiar)}
   BlockWrite(ToF, Buf, NumRead, NumWritten); {zapisywanie odczytanego bloku}
 until (NumRead = 0) or (NumWritten <> NumRead); {kopiowanie do momentu skopiowania calego pliku lub gdy wystapi blad}
 Close(FromF); {Zamykanie plikow}
 Close(ToF);
end.

Ten program nie zadzia³a tak od razu. Trzeba podaæ mu 2 parametry, które bêd± oznacza³y 2 pliki. Pierwszym musi byæ plik, który rzeczywi¶cie istnieje na dysku. Drugi parametr to plik tworzony. Jak wpisaæ te parametry? W menu Turbo Pascala wybierz Run->Parameters I wpisz np. C:plik.txt C:Kopia.txt.


Teraz utwórz na dysku C: plik o nazwie plik.txt i wpisz do niego jak±¶ zawarto¶æ. Gdy uruchomisz program, zobaczysz, ¿e na dysku powsta³ drugi plik o nazwie Kopia.txt, w dodatku z tak± sam± zawarto¶ci± jak plik.txt.


Warto zwróciæ uwagê na pewn± funkcjê w podanym przyk³adzie. Chodzi o FileSize. Funkcja FileSize zwraca rozmiar pliku, którego kojarzymy ze zmienn± typu File.


Obs³uga plików w turbo pascalu


Pliki tekstowe
Pliki binarne
Obs³uga b³êdów

Strona korzysta z plików cookie w celu ¶wiadczenia us³ug Google (reklamy, statytyki) oraz Facebook. Je¶li chcesz zablokowaæ pliki cookies wy³acz je w swojej przegl±darce. Potrzebujesz pomocy? kliknij