مستوى الدرس :مبتدئ
ملفات المعلومات تختلف عن ملفات النصوص بأشياء بسيطه . ملفات المعلومات هي الوصول العشوائي يعني انه لا يجب ان تقرأ سطر بعد سطر بدلاً من ذلك يمكن ان تصل إلى اي جزء من اجزاء الملف في اي وقت . و طريقة تعريف ملفات البيانات :
program DataFiles;
var
f: file of Byte;
begin
end.
يجب ان تستخدم Assign بنفس طريقة استخدامها في ملفات النصوص .
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
end.
يمكنك استخدام Rewrite لانشاء ملف جديد غير موجود . الاختلاف بين ملفات النصوص و ملفات المعلومات عند استخدام الامر Rewrite هو ان ملفات المعلومات يمكنك القرائه منها و الكتابة عليها .
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Rewrite(f);
end.
الامر Reset مثل الامر Rewrite بإستثناء انه لا ينشئ الملف اذا كان لم يكن موجوداً :
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
end.
عندما تريد الكتابه على الملف يجب ان تستخدم الامر Write , يجب اولاً ان تضع الذي تريد كتابته على الملف في متغير , قبل الكتابه او القرائه من ملفات المعلومات يجب ان تستخدم الامر Seek للبحث عن المكان الصحيح لبداية الكتابه . يجب ان تتذكر ملف المعلومات يبدأ من الوضع 0 و ليس 1 .
program DataFiles;
var
f: file of Byte;
b: Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
b := 1;
Seek(f,0);
Write(f,b);
end.
الامر Read يستخدم للقراءه من ملفات المعلومات .
program DataFiles;
var
f: file of Byte;
b: Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
Seek(f,0);
Read(f,b);
end.
يجب عليك ان تغلق ملفات المعلومات بعد الانتهاء منها مثل ملفات النصوص .
program DataFiles;
var
f: file of Byte;
b: Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
Seek(f,0);
Read(f,b);
Close(f);
end.
الامر FileSize يمكن استخدامه مع الامر FilePos لمعرفة متى وصلت إلى نهاية الملفات . الامر FileSize يعيد الرقم الفعلي لعدد التسجيلات و يبدأ من 1 و ليس 0 . الامر FilePos يخبرنا عن الوضع الذي هو عليه الملف الآن .
program DataFiles;
var
f: file of Byte;
b: Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
while FilePos(f) <> FileSize(f) do
begin
Read(f,b);
Writeln(b);
end;
Close(f);
end.
الامر Truncate يحذف أي شئ في الملف من الوضع الحالي .
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
Seek(f,3);
Truncate(f);
Close(f);
end.
احد اكثر الاشياء افادة في ملفات المعلومات هو امكانية استخدام التسجيلات و ملفات المعلومات مع بعضها البعض .
program DataFiles;
type
StudentRecord = Record
Number: Integer;
Name: String;
var
Student: StudentRecord;
begin
Assign(f,'MyFile.txt');
Reset(f);
Student.Number := 12345;
Student.Name := 'John Smith';
Write(f,Student);
Close(f);
end.
