Basic Pascal Tutorial/Chapter 2/Files/bg: what changed

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

Old	New		Line
1	1		## Файлове
2	2
3	3		(author: Tao Yue, state: unchanged)
4	4
5	5		Четенето от файл вместо от конзолата (клавиатурата) може да се извърши чрез:
6	6
7	7		``` pascal
8	8		read (file_variable, argument_list);
9	9		write (file_variable, argument_list);
10	10		```
11	11
12	12		Това важи и за `readln` and `writeln`. Променливата file_variable се декларира по следния начин:
13	13
14	14		``` pascal
15	15		var
16	16		...
17	17		filein, fileout : text;
18	18		```
19	19
20	20		Типът `text` означава, че файлът е обикновен текстов файл.
21	21
22	22		След декларирането на променлива за файла и преди четене от или писане в него, трябва да свържем променливата с името на файла на диска и да отворим файла. Това може да стане по един от двата начина. Обикновено:
23	23
24		-	~~`reset (file_variable, 'filename.extension');`\~~
25		-	~~`rewrite (file_variable, 'filename.extension');`~~
	24	+	```
	25	+	reset (file_variable, 'filename.extension');
	26	+	rewrite (file_variable, 'filename.extension');
	27	+	```
26	28
27	29		Процедурата `reset` отваря файла за четене, а `rewrite` отваря файла за писане. Файл отворен с `reset` може да се използва само с `read` и `readln`. Файл отворен с `rewrite` може да се използва само с `write` и `writeln`.
28	30
29	31		Турбо Паскал въведе assign нотацията. Първо присвоявате име на файл на променлива, след което извиквате `reset` или `rewrite`, като използвате само променливата.
30	32
31	33		``` pascal
32	34		assign (file_variable, 'filename.extension');
33	35		reset (file_variable);
34	36		```
35	37
36	38		Методът за представяне на пътя и името на файла се различава в зависимост от операционната система. В Windows се използват обратни наклонени черти и букви на устройството защото произлиза от DOS (e.g. `c:\directory\name.pas`), докато FreeBSD, macOS и Linux използват '/' поради наследяването им от UNIX.
37	39
38	40		След като приключите с файла, можете да го затворите с:
39	41
40	42		``` pascal
41	43		close (file_variable);
42	44		```
43	45
44	46		Ето пример за програма, която използва файлове. Тази програма е написана за Turbo Pascal и DOS и ще създаде file2.txt с първия символ от file1.txt:
45	47
46	48		``` pascal
47	49		program CopyOneByteFile;
48	50
49	51		var
50	52		mychar : char;
51	53		filein, fileout : text;
52	54
53	55		begin
54	56		assign (filein, 'c:\file1.txt');
55	57		reset (filein);
56	58		assign (fileout, 'c:\file2.txt');
57	59		rewrite (fileout);
58	60		read (filein, mychar);
59	61		write (fileout, mychar);
60	62		close(filein);
61	63		close(fileout)
62	64		end.
63	65		```
64	66
65	67		---
66	68		From the Free Pascal wiki, page "Basic Pascal Tutorial/Chapter 2/Files/bg", as it stood on 2022-08-20 after a change by Kai Burghardt, 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