Sign in Join
Wiki copytemporary

binary file/pl: what changed

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

OldNewLine
11Plik binarny
22
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-
133## Plik binarny
144
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- ...
5+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:
6+
7+``` pascal
8+ var
9+ datFile : File of Byte; // zawsze odczytuje i zapisuje pojedynczy bajt/znak
10+ datFile : File of Char; // zawsze odczytuje i zapisuje pojedynczy znak
11+ datFile : File of Integer; // zawsze odczytuje i zapisuje 2 bajty/znaki
12+ ...
2213```
2314
24-Dostęp do dowolnej lokalizacji w pliku binarnym można uzyskać za pomocą polecenia SEEK.
15+Dostęp do dowolnej lokalizacji w pliku binarnym można uzyskać za pomocą polecenia SEEK.
2516
2617## 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;
18+
19+``` pascal
20+ var
21+ datFile : File of Char;
22+ chrContent : Char;
23+
24+ begin
25+ Assignfile(datFile, 'przykladowy.txt'); // Przypisuje nazwę pliku do zmiennej txtFile i otwiera plik
26+ ReWrite(datFile); // Plik zostanie nadpisany, jeśli istnieje
27+ chrContent := 'A';
28+ Write(datFile, chrContent); // Wpisz pierwszy znak do nowego pliku
29+ ...
30+ end;
3931```
4032
4133## 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;
34+
35+``` pascal
36+ var
37+ datFile : File of Char;
38+ chrContent : Char;
39+
40+ begin
41+ ...
42+ CloseFile(datFile); // zamyka plik
43+ end;
5144```
5245
5346## Dodanie znaku na końcu istniejącego pliku
5447
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- ...
48+W przypadku plików binarnych znak można dodać na końcu pliku za pomocą polecenia Seek.
49+
50+``` pascal
51+ var
52+ datFile : File of char;
53+ chrContent : Char;
54+
55+ begin
56+ AssignFile(datFile, 'przykladowy.txt');
57+ Reset(datFile); // Ustawia wskaźnik pliku na początku pliku
58+ Seek(datFile, FileSize(datFile)); // Określa koniec pliku i ustawia wskaźnik pliku na jego koniec
59+ chrContent := 'b';
60+ Write(datFile, chrContent); // Zapisuje kolejny znak na końcu pliku
61+ ...
6862```
6963
7064## Zmiana znaku w istniejącym pliku
7165
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- ...
66+W przypadku plików binarnych możesz użyć polecenia Seek, aby zastąpić znak w dowolnym miejscu pliku.
67+
68+``` pascal
69+ var
70+ datFile : File of Char;
71+ chrContent : Char;
72+
73+ begin
74+ AssignFile(datFile, 'przykladowy.txt');
75+ Reset(datFile); // Ustawia wskaźnik pliku na początku pliku
76+ Seek (datFile, 1); // Ustawia wskaźnik pliku na _drugi_ znak w pliku
77+ chrContent := 'f';
78+ Write(datFile, chrContent); // Zastępuje drugi znak w pliku nowym znakiem
79+ ...
8580```
8681
8782## 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);
83+
84+``` pascal
85+ var
86+ datFile : File of Char;
87+ chrContent : Char;
88+
89+ begin
90+ AssignFile(datFile, 'przykladowy.txt');
91+ Reset(datFile);
92+
93+ while not eof(datFile) // czytaj dalej, dopóki są dane do odczytania
94+ do begin
95+ read(datFile, chrContent); // odczytuje pojedynczy znak do zmiennej chrContent
96+ ...
10497 end;
98+
99+ CloseFile(datFile);
100+ end;
105101```
106102
107103## Zobacz także
108104
109105[[File types/pl|Typy plików]]
110106
111107---
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).*
108+*From the Free Pascal wiki, page "binary file/pl", as it stood on 2022-01-28 after a change by Trev, out of the wiki's dump of 2024-05-26. 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