File Handling In Pascal/ar

From Free Pascal wiki
Jump to: navigation, search

العربية (ar) English (en) español (es) suomi (fi) français (fr) 日本語 (ja) русский (ru) 中文(中国大陆)‎ (zh_CN) 中文(台灣)‎ (zh_TW)

نظرة عامة

يجب ان يتعلم جميع المبرمجين كيفية التعامل مع الملفات.تستخدم الملفات لحفظ المعلومات بحيث يمكن استرجاعها مرة اخرى

الطريقة الهيكلية القديمة

عند التعامل مع الملفات بطريق هيكلية (غير شيئية) يمكن تحديد نوع الملف حسب المحتويات التي نرغب بتخزينها( او المخزنة مسبقا) في الملف مثلا للنصوص نستخدم TextFile والذي يقوم بحفظ النص بشكل اسطر كل سطر ينتهي بعلامة انتهاء السطر(LineEnding). يمكنك حفظ مقاطع نصية (String)في هذا النوع من الملفات كما يمكن حفظ الارقام ايضا بعد تحوليها الى String. يمكنك انشاء نوعك الخاص من الملفات لحفظ نوع معين من البيانات :لتخزين الارقام فقط. هذا الملف يستخدم لحفظ ذلك النوع فقط مثال:

...
type
  TIntegerFile  = file of integer;  // يسمح لك فقط بكتابة ارقام Integer في الملف
  TExtendedFile = file of extended; // يسمح لك فقط بكتابة ارقام extended في الملف
  TCharFile     = file of char;     //  يسمح لك فقط بكتابة حروف منفردة char في الملف 
 
//يمكن ايضا انشاء ملف من نوع سجل 
TCostumer = record
    CostumerName: string[255];
    CostumerID: Integer;
end;
TCostumerFile     = file of TCostumer;

التعامل مع اخطاء الادخال و الاخراج

العلمI/O error handling flagيخبر المصنف(compiler) بطريقة التعام مع الاخطاء اما برفع استثناء او حفظ النتيجة في اللمتغير IOResult

{$I+} // الاخطاء ستقوم برفع استثناء(الافتراضي)
{$I-} //IOResult يتم وضع الخطأ في المتغير

اجراءات الملفات

اجلراءات ودوال التعامل مع الملفات التاية موجودة في الوحدة System. يمكنك الذهاب الى الوثائق للمزيد من المعلومات Reference for 'System' unit.

  • AssignFile تحديد اسم الملف
  • Append فتح ملف موجود للاضافة اليه
  • BlockRead - قراءة معلوات من ملف غير محدد النوع الى الذاكرة
  • BlockWrite - كتابة معلومات من الذاكرة الى ملف غير محدد النوع
  • CloseFile اغلاق الملف
  • EOF - فحص نهاية الملف
  • Erase - حذف ملف من القرص
  • FilePos
  • FileSize - هذه الدالة تعطي حجم الملف
  • Flush -
  • IOResult - نتيج اخر عملية ادخال او اخراج
  • Read - القراءة من ملف
  • ReadLn - قراءة سطر من الملف
  • Reset - فغتح ملف للقراءة
  • Rewrite - انشاء ملف للكتابة
  • Seek - تغير المكان(مكان القراءة او الكتابة)في الملف
  • SeekEOF - الذهاب الى نهاية الملف
  • SeekEOLn - الذهاب الى نهاية السطر
  • Truncate -
  • Write - كتابة متغير في الملف
  • WriteLn - كتابة متغير في ملف نصي والذهاب الى ملف جديد

مثال

مثال لملف نصي TextFile

program CreateFile;
 
uses
 Sysutils;
 
const
  C_FNAME = 'textfile.txt';
 
var
  tfOut: TextFile;
 
begin
  // Set the name of the file that will be created
  AssignFile(tfOut, C_FNAME);
 
  // Use exceptions to catch errors (this is the default so not absolutely requried)
  {$I+}
 
  // Embed the file creation in a try/except block to handle errors gracefully
  try
    // Create the file, write some text and close it.
    rewrite(tfOut);
 
    writeln(tfOut, 'Hello textfile!');
    writeln(tfOut, 'The answer to life, the universe and everything: ', 42);
 
    CloseFile(tfOut);
 
  except
    // If there was an error the reason can be found here
    on E: EInOutError do
      writeln('File handling error occurred. Details: ', E.ClassName, '/', E.Message);
  end;
 
  // Give feedback and wait for key press
  writeln('File ', C_FNAME, ' created if all went ok. Press Enter to stop.');
  readln;
end.