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

Revision 2 to 3. 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		-	~~```~~
	24	+	```text
25	25		reset (file_variable, 'filename.extension');
26	26		rewrite (file_variable, 'filename.extension');
27	27		```
28	28
29	29		Процедурата `reset` отваря файла за четене, а `rewrite` отваря файла за писане. Файл отворен с `reset` може да се използва само с `read` и `readln`. Файл отворен с `rewrite` може да се използва само с `write` и `writeln`.
30	30
31	31		Турбо Паскал въведе assign нотацията. Първо присвоявате име на файл на променлива, след което извиквате `reset` или `rewrite`, като използвате само променливата.
32	32
33	33		``` pascal
34	34		assign (file_variable, 'filename.extension');
35	35		reset (file_variable);
36	36		```
37	37
38	38		Методът за представяне на пътя и името на файла се различава в зависимост от операционната система. В Windows се използват обратни наклонени черти и букви на устройството защото произлиза от DOS (e.g. `c:\directory\name.pas`), докато FreeBSD, macOS и Linux използват '/' поради наследяването им от UNIX.
39	39
40	40		След като приключите с файла, можете да го затворите с:
41	41
42	42		``` pascal
43	43		close (file_variable);
44	44		```
45	45
46	46		Ето пример за програма, която използва файлове. Тази програма е написана за Turbo Pascal и DOS и ще създаде file2.txt с първия символ от file1.txt:
47	47
48	48		``` pascal
49	49		program CopyOneByteFile;
50	50
51	51		var
52	52		mychar : char;
53	53		filein, fileout : text;
54	54
55	55		begin
56	56		assign (filein, 'c:\file1.txt');
57	57		reset (filein);
58	58		assign (fileout, 'c:\file2.txt');
59	59		rewrite (fileout);
60	60		read (filein, mychar);
61	61		write (fileout, mychar);
62	62		close(filein);
63	63		close(fileout)
64	64		end.
65	65		```
66	66
67	67		---
68	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