binary file/de: what changed

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

Title: binary file/de

New		Line
1	+	Zurück zu den [[File types/de\|Dateitypen]].
2	+
3	+
4	+
5	+	## Contents
6	+
7	+	* 1 Binärdatei
8	+	* 2 Datei erstellen
9	+	* 3 Datei schliessen
10	+	* 4 Ein Zeichen an das Ende einer bestehende Datei anfügen
11	+	* 5 Ein Zeichen in einer bestehende Datei ersetzen
12	+	* 6 Datei komplett lesen
13	+
14	+	# Binärdatei
15	+
16	+	Eine Binärdatei eignet sich für die Verarbeitung von Dateien jeder Grösse.
17	+
18	+	Bei Binärdateien, wird der Inhalt einer Datei Zeichen für Zeichen eingelesen. Umgekehrt wird die Datei Zeichen für Zeichen geschrieben.
19	+
20	+	Wird eine Datei als Binärdatei geöffnet, dann kann an einer beliebigen Stelle in der Datei ein Zeichen geändert werden.
21	+
22	+	In eine mit FILE OF definierte Datei können nun Daten desselben Typs geschrieben und gelesen werden.
23	+
24	+	Mit FILE OF können Binärdateien u. a. wie folgt definiert werden:
25	+	```
26	+	var
27	+	datByte: File of Byte; // liest und schreibt immer ein Zeichen
28	+	datChar: File of Char; // liest und schreibt immer ein Zeichen
29	+	datInt: File of Integer; // liest und schreibt immer zwei Zeichen
30	+	...
31	+	```
32	+
33	+	Mit dem Befehl SEEK kann auf jede Stelle in der Binärdatei zugegriffen werden.
34	+
35	+	# Datei erstellen
36	+	```
37	+	var
38	+	datDatei: file of char;
39	+	chrZeichen: char;
40	+
41	+	begin
42	+	Assignfile(datDatei, 'D:\beispiel.txt'); // Weist der Variablen txtDatei den Namen der Datei zu und öffnet die Datei
43	+	ReWrite(datDatei); // Eine alte Datei wird soweit vorhanden überschrieben
44	+	chrZeichen := 'A';
45	+	Write(datDatei, chrZeichen); // Schreibt das erste Zeichen in die neue Datei
46	+	...
47	+	end;
48	+	```
49	+
50	+	# Datei schliessen
51	+	```
52	+	var
53	+	datDatei: file of char;
54	+	chrZeichen: char;
55	+
56	+	begin
57	+	...
58	+	CloseFile(datDatei); //Schliesst die Datei
59	+	end;
60	+	```
61	+
62	+
63	+
64	+	# Ein Zeichen an das Ende einer bestehende Datei anfügen
65	+
66	+	Bei Binärdateien kann mit Hilfe des Befehls Seek am Ende einer Datei ein Zeichen hinzugefügt werden.
67	+	```
68	+	var
69	+	datDatei: file of char;
70	+	chrZeichen: char;
71	+
72	+	begin
73	+	AssignFile(datDatei, 'd:\beispiel.txt');
74	+	Reset(datDatei); // Setzt den Dateizeiger auf den Dateianfang
75	+	seek(datDatei, FileSize(datDatei)); // Ermittelt das Dateiende und setzt den Dateizeiger auf das Dateiende
76	+	chrZeichen := 'b';
77	+	Write(datDatei, chrZeichen); // Schreibt ein weiteres Zeichen an das Dateiende
78	+	...
79	+	```
80	+
81	+	# Ein Zeichen in einer bestehende Datei ersetzen
82	+
83	+	Bei Binärdateien kann mit Hilfe des Befehls Seek an einer beliebigen Stelle der Datei ein Zeichen ersetzt werden.
84	+	```
85	+	var
86	+	datDatei: file of char;
87	+	chrZeichen: char;
88	+
89	+	begin
90	+	AssignFile(datDatei, 'd:\beispiel.txt');
91	+	Reset(datDatei); // Setzt den Dateizeiger auf den Dateianfang
92	+	seek(datDatei, 1); // Ermittelt das zweite Zeichen in einer Datei
93	+	chrZeichen := 'f';
94	+	Write(datDatei, chrZeichen); // Überschreibt das zweite Zeichen in der Datei
95	+	...
96	+	```
97	+
98	+	# Datei komplett lesen
99	+	```
100	+	var
101	+	datDatei: file of char;
102	+	chrZeichen: char;
103	+
104	+	begin
105	+	AssignFile(datDatei, 'D:\beispiel.txt');
106	+	Reset(datDatei);
107	+	read(datDatei, chrZeichen);
108	+	...
109	+	while not eof(datDatei) // mach weiter, solange noch Daten zu lesen sind
110	+	do begin
111	+	...
112	+	read(datDatei, chrZeichen); // liest ein einzelnes Zeichen
113	+	end;
114	+	CloseFile(datDatei);
115	+	end;
116	+	```
117	+
118	+	---
119	+	From the Free Pascal wiki, page "binary file/de", as the Internet Archive kept it on 2025-05-04. 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