binary file/pl: what changed

Revision 0 to 1. Removed lines have a minus sign; added lines have a plus sign.

Title: binary file/pl

New		Line
1	+	Plik binarny
2	+
3	+	## Contents
4	+
5	+	* 1 Plik binarny
6	+	* 2 Tworzenie pliku
7	+	* 3 Zamknięcie pliku
8	+	* 4 Dodanie znaku na końcu istniejącego pliku
9	+	* 5 Zmiana znaku w istniejącym pliku
10	+	* 6 Czytanie całego pliku
11	+	* 7 Zobacz także
12	+
13	+	## Plik binarny
14	+
15	+	Plik binarny nadaje się do przetwarzania plików o dowolnym rozmiarze. W przypadku plików binarnych zawartość pliku jest odczytywana znak po znaku. I odwrotnie, plik zapisywany jest także znak po znaku. Jeśli plik jest otwierany jako plik binarny, pojedynczy bajt lub znak można zmienić w dowolnym miejscu pliku. Dane tego samego typu można teraz zapisywać i wczytywać do pliku zdefiniowanego za pomocą opcji FILE OF w następujący sposób:
16	+	```
17	+	var
18	+	datFile : File of Byte; // zawsze odczytuje i zapisuje pojedynczy bajt/znak
19	+	datFile : File of Char; // zawsze odczytuje i zapisuje pojedynczy znak
20	+	datFile : File of Integer; // zawsze odczytuje i zapisuje 2 bajty/znaki
21	+	...
22	+	```
23	+
24	+	Dostęp do dowolnej lokalizacji w pliku binarnym można uzyskać za pomocą polecenia SEEK.
25	+
26	+	## Tworzenie pliku
27	+	```
28	+	var
29	+	datFile : File of Char;
30	+	chrContent : Char;
31	+
32	+	begin
33	+	Assignfile(datFile, 'przykladowy.txt'); // Przypisuje nazwę pliku do zmiennej txtFile i otwiera plik
34	+	ReWrite(datFile); // Plik zostanie nadpisany, jeśli istnieje
35	+	chrContent := 'A';
36	+	Write(datFile, chrContent); // Wpisz pierwszy znak do nowego pliku
37	+	...
38	+	end;
39	+	```
40	+
41	+	## Zamknięcie pliku
42	+	```
43	+	var
44	+	datFile : File of Char;
45	+	chrContent : Char;
46	+
47	+	begin
48	+	...
49	+	CloseFile(datFile); // zamyka plik
50	+	end;
51	+	```
52	+
53	+	## Dodanie znaku na końcu istniejącego pliku
54	+
55	+	W przypadku plików binarnych znak można dodać na końcu pliku za pomocą polecenia Seek.
56	+	```
57	+	var
58	+	datFile : File of char;
59	+	chrContent : Char;
60	+
61	+	begin
62	+	AssignFile(datFile, 'przykladowy.txt');
63	+	Reset(datFile); // Ustawia wskaźnik pliku na początku pliku
64	+	Seek(datFile, FileSize(datFile)); // Określa koniec pliku i ustawia wskaźnik pliku na jego koniec
65	+	chrContent := 'b';
66	+	Write(datFile, chrContent); // Zapisuje kolejny znak na końcu pliku
67	+	...
68	+	```
69	+
70	+	## Zmiana znaku w istniejącym pliku
71	+
72	+	W przypadku plików binarnych możesz użyć polecenia Seek, aby zastąpić znak w dowolnym miejscu pliku.
73	+	```
74	+	var
75	+	datFile : File of Char;
76	+	chrContent : Char;
77	+
78	+	begin
79	+	AssignFile(datFile, 'przykladowy.txt');
80	+	Reset(datFile); // Ustawia wskaźnik pliku na początku pliku
81	+	Seek (datFile, 1); // Ustawia wskaźnik pliku na _drugi_ znak w pliku
82	+	chrContent := 'f';
83	+	Write(datFile, chrContent); // Zastępuje drugi znak w pliku nowym znakiem
84	+	...
85	+	```
86	+
87	+	## Czytanie całego pliku
88	+	```
89	+	var
90	+	datFile : File of Char;
91	+	chrContent : Char;
92	+
93	+	begin
94	+	AssignFile(datFile, 'przykladowy.txt');
95	+	Reset(datFile);
96	+
97	+	while not eof(datFile) // czytaj dalej, dopóki są dane do odczytania
98	+	do begin
99	+	read(datFile, chrContent); // odczytuje pojedynczy znak do zmiennej chrContent
100	+	...
101	+	end;
102	+
103	+	CloseFile(datFile);
104	+	end;
105	+	```
106	+
107	+	## Zobacz także
108	+
109	+	[[File types/pl\|Typy plików]]
110	+
111	+	---
112	+	From the Free Pascal wiki, page "binary file/pl", as the Internet Archive kept it on 2024-09-20. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history