30-03-2009, 07:00 PM
ننتقل الأن الى النوع التاني من الملفات (الملفات التتابعية) ببساطة هي ملفات لا تعتمد على الأسطر في بينتها (Lines) لكن على حقول (REgistrations) كيف :
1- عن طريق تعريف نمط جديد (Record) و المتغيرات التابعة له تعامل على أساس حقول ! سيتوجب علينا برمجة دوال و إجراءات للتعامل معها .
2- عن طريق الصنف TFileStraem مع نفس الخطوة السابقة (نمط جديد) لكن من ناحية أسرع و أأمن .
كيف ... ؟ أولا نفوم بإنشاء "جدول " نمط جديد :
رأيتم هنا إسم الجدول TPersFile له حقول (age,fname,lname,men) .
ثم نعرف ملف من هدا النمط و هادا ماميميز هدا الصنف من الملفات : File Of Type
الأن نعرف الملف من هدا النمط :
الأن ملاحظة بسيط : في الملفات النصية يجب علينا التأكد أولا من وجود الملف لنستطيع فتحه
بطريقة (للقراءة فقط) لكن هنا (الملفات التتابعية أو التنائية) لا يهم طبيعة أو طريقة فتح الملف !! .
هدا المثال الأول لم أشرحه لأن معظم التعليمات شرحتها سابقا في الملفات النصية فقط سنتعامل
الأن بدالتين : Seek/Truncate (تموضع / بتر او قطع).
1- عن طريق تعريف نمط جديد (Record) و المتغيرات التابعة له تعامل على أساس حقول ! سيتوجب علينا برمجة دوال و إجراءات للتعامل معها .
2- عن طريق الصنف TFileStraem مع نفس الخطوة السابقة (نمط جديد) لكن من ناحية أسرع و أأمن .
كيف ... ؟ أولا نفوم بإنشاء "جدول " نمط جديد :
كود :
Type
TPersFile = Record
LName,FName :String [100]; // ( << 256 char)
Age : Byte;
Men : Boolean;
End;رأيتم هنا إسم الجدول TPersFile له حقول (age,fname,lname,men) .
ثم نعرف ملف من هدا النمط و هادا ماميميز هدا الصنف من الملفات : File Of Type
الأن نعرف الملف من هدا النمط :
كود :
SPersFile = File Of TPersFile;الأن ملاحظة بسيط : في الملفات النصية يجب علينا التأكد أولا من وجود الملف لنستطيع فتحه
بطريقة (للقراءة فقط) لكن هنا (الملفات التتابعية أو التنائية) لا يهم طبيعة أو طريقة فتح الملف !! .
هدا المثال الأول لم أشرحه لأن معظم التعليمات شرحتها سابقا في الملفات النصية فقط سنتعامل
الأن بدالتين : Seek/Truncate (تموضع / بتر او قطع).
![[صورة: 45525.jpg]](http://img156.imageshack.us/img156/6633/45525.jpg)
I'M Fly Like A G6


![[-]](https://delphi4arab.net/forum/D4A2020/collapse.png)