File Handling In Pascal/ar: what changed

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

Old	New		Line
1		-	~~<div dir="rtl" style="text-align: right;">~~
2		-
3	1		## نظرة عامة
4	2
5	3		يجب ان يتعلم جميع المبرمجين كيفية التعامل مع الملفات.تستخدم الملفات لحفظ المعلومات بحيث يمكن استرجاعها مرة اخرى
6	4
7	5		## الطريقة الهيكلية القديمة
8	6
9	7		عند التعامل مع الملفات بطريق هيكلية (غير شيئية) يمكن تحديد نوع الملف حسب المحتويات التي نرغب بتخزينها( او المخزنة مسبقا) في الملف مثلا للنصوص نستخدم TextFile والذي يقوم بحفظ النص بشكل اسطر كل سطر ينتهي بعلامة انتهاء السطر([[End of Line\|LineEnding]]). يمكنك حفظ مقاطع نصية (String)في هذا النوع من الملفات كما يمكن حفظ الارقام ايضا بعد تحوليها الى String. يمكنك انشاء نوعك الخاص من الملفات لحفظ نوع معين من البيانات :لتخزين الارقام فقط. هذا الملف يستخدم لحفظ ذلك النوع فقط مثال:
10	8
11		-	~~<div dir="rtl" style="text-align: left;">~~
12		-
13	9		``` pascal
14	10		...
15	11		type
16	12		TIntegerFile = file of integer; // يسمح لك فقط بكتابة ارقام Integer في الملف
17	13		TExtendedFile = file of extended; // يسمح لك فقط بكتابة ارقام extended في الملف
18	14		TCharFile = file of char; // يسمح لك فقط بكتابة حروف منفردة char في الملف
19	15
20	16		//يمكن ايضا انشاء ملف من نوع سجل
21	17		TCostumer = record
22	18		CostumerName: string[255];
23	19		CostumerID: Integer;
24	20		end;
25	21		TCostumerFile = file of TCostumer;
26	22		```
27	23
28		-	~~<div dir="rtl" style="text-align: right;">~~
29		-
30	24		## التعامل مع اخطاء الادخال و الاخراج
31	25
32	26		العلم[I/O error handling flag](http://www.freepascal.org/docs-html/prog/progsu38.html#x45-440001.2.38)يخبر المصنف(compiler) بطريقة التعام مع الاخطاء اما برفع استثناء او حفظ النتيجة في اللمتغير IOResult
33	27
34		-	~~<div dir="rtl" style="text-align: left;">~~
35		-
36	28		``` pascal
37	29		{$I+} // الاخطاء ستقوم برفع استثناء(الافتراضي)
38	30		{$I-} //IOResult يتم وضع الخطأ في المتغير
39	31		```
40	32
41		-	~~<div dir="rtl" style="text-align: right;">~~
42		-
43	33		## اجراءات الملفات
44	34
45	35		اجلراءات ودوال التعامل مع الملفات التاية موجودة في الوحدة System. يمكنك الذهاب الى الوثائق للمزيد من المعلومات [Reference for 'System' unit](http://www.freepascal.org/docs-html/rtl/system/index-5.html).
46	36
47	37		- AssignFile تحديد اسم الملف
48	38		- Append فتح ملف موجود للاضافة اليه
49	39		- BlockRead - قراءة معلوات من ملف غير محدد النوع الى الذاكرة
50	40		- BlockWrite - كتابة معلومات من الذاكرة الى ملف غير محدد النوع
51	41		- CloseFile اغلاق الملف
52	42		- EOF - فحص نهاية الملف
53	43		- Erase - حذف ملف من القرص
54	44		- FilePos
55	45		- FileSize - هذه الدالة تعطي حجم الملف
56	46		- Flush -
57	47		- IOResult - نتيج اخر عملية ادخال او اخراج
58	48		- Read - القراءة من ملف
59	49		- ReadLn - قراءة سطر من الملف
60	50		- Reset - فغتح ملف للقراءة
61	51		- Rewrite - انشاء ملف للكتابة
62	52		- Seek - تغير المكان(مكان القراءة او الكتابة)في الملف
63	53		- SeekEOF - الذهاب الى نهاية الملف
64	54		- SeekEOLn - الذهاب الى نهاية السطر
65	55		- Truncate -
66	56		- Write - كتابة متغير في الملف
67	57		- WriteLn - كتابة متغير في ملف نصي والذهاب الى ملف جديد
68	58
69	59		## مثال
70	60
71	61		مثال لملف نصي TextFile
72		-
73		-	~~<div dir="rtl" style="text-align: left;">~~
74	62
75	63		``` pascal
76	64		program CreateFile;
77	65
78	66		uses
79	67		Sysutils;
80	68
81	69		const
82	70		C_FNAME = 'textfile.txt';
83	71
84	72		var
85	73		tfOut: TextFile;
86	74
87	75		begin
88	76		// Set the name of the file that will be created
89	77		AssignFile(tfOut, C_FNAME);
90	78
91	79		// Use exceptions to catch errors (this is the default so not absolutely requried)
92	80		{$I+}
93	81
94	82		// Embed the file creation in a try/except block to handle errors gracefully
95	83		try
96	84		// Create the file, write some text and close it.
97	85		rewrite(tfOut);
98	86
99	87		writeln(tfOut, 'Hello textfile!');
100	88		writeln(tfOut, 'The answer to life, the universe and everything: ', 42);
101	89
102	90		CloseFile(tfOut);
103	91
104	92		except
105	93		// If there was an error the reason can be found here
106	94		on E: EInOutError do
107	95		writeln('File handling error occurred. Details: ', E.ClassName, '/', E.Message);
108	96		end;
109	97
110	98		// Give feedback and wait for key press
111	99		writeln('File ', C_FNAME, ' created if all went ok. Press Enter to stop.');
112	100		readln;
113	101		end.
114	102		```
115	103
116	104		---
117	105		From the Free Pascal wiki, page "File Handling In Pascal/ar", as it stood on 2020-02-14 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