ملفات المعلومات تختلف عن ملفات النصوص بأشياء بسيطه . ملفات المعلومات هي الوصول العشوائي يعني انه لا يجب ان تقرأ سطر بعد سطر بدلاً من ذلك يمكن ان تصل إلى اي جزء من اجزاء الملف في اي وقت . و طريقة تعريف ملفات البيانات :
شيفره برمجيه :
PHP CODE:
0001
program DataFiles;
var
f: file of Byte;
begin
end.
?>
يجب ان تستخدم Assign بنفس طريقة استخدامها في ملفات النصوص .
شيفره برمجيه :
PHP CODE:
0001
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
end
?>
.
يمكنك استخدام Rewrite لانشاء ملف جديد غير موجود . الاختلاف بين ملفات النصوص و ملفات المعلومات عند استخدام الامر Rewrite هو ان ملفات المعلومات يمكنك القرائه منها و الكتابة عليها .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Rewrite(f);
end.
?>
الامر Reset مثل الامر Rewrite بإستثناء انه لا ينشئ الملف اذا كان لم يكن موجوداً :
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
end.
?>
عندما تريد الكتابه على الملف يجب ان تستخدم الامر Write , يجب اولاً ان تضع الذي تريد كتابته على الملف في متغير , قبل الكتابه او القرائه من ملفات المعلومات يجب ان تستخدم الامر Seek للبحث عن المكان الصحيح لبداية الكتابه . يجب ان تتذكر ملف المعلومات يبدأ من الوضع 0 و ليس 1 .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
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 يستخدم للقراءه من ملفات المعلومات .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
program DataFiles;
var
f: file of Byte;
b: Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
Seek(f,0);
Read(f,b);
end.
?>
يجب عليك ان تغلق ملفات المعلومات بعد الانتهاء منها مثل ملفات النصوص .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
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 يخبرنا عن الوضع الذي هو عليه الملف الآن .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
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 يحذف أي شئ في الملف من الوضع الحالي .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
program DataFiles;
var
f: file of Byte;
begin
Assign(f,'MyFile.txt');
Reset(f);
Seek(f,3);
Truncate(f);
Close(f);
end.
?>
احد اكثر الاشياء افادة في ملفات المعلومات هو امكانية استخدام التسجيلات و ملفات المعلومات مع بعضها البعض .
شيفره برمجيه :
PHP CODE:
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
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.
?> 
