التعامل مع الملفات النصية بالدلفي

بسم الله الرحمان الرحيم

السلام عليكم و رحمة الله تعالى و بركاته في درس (حصريا )اليوم سنتعلم معا التعامل مع الملفات و لكن في هذا الدرس سنتعامل مع الملفات النصية مثل : *.txt أو *.ini ..... و بدون إطالة هذه هي أجزاء درس اليوم :

كيفية إنشاء ملف برمجيا بالدلفي

أكتب الكود التالي في حدث الضغط على button

var
newFile : TextFile;
begin
System.AssignFile(newFile, 'd:\newfile.txt');
System.Rewrite(newFile);
end;

سنشرح الأمر قليلا : نقوم في البداية بتعريف متغير من نوع نص textfile و بعدها يبدأ الكود في البداية كتبنا الأمر الذي يحدد لنا مكان الملف الذي سننشئه و السطر الثاني هو تتمة له و هو الذي ينشأ الملف أما إذا كنت تريد أن يتم تحديد اسم الملف و مكان تواجده أثناء تنفيذ البرنامج فما عليك إلا إضافة أداة edit1 ثم تغير الكود السابق إلى :

var
newFile : TextFile;
begin
System.AssignFile(newFile, edit1.text);
System.Rewrite(newFile);
end;

و لكن لتفادي إزعاج المستخدم الذي لا يريد كتابة d:\newfile.txt يجب أن تقوم بكتابة الكود التالي في حدث onclic المتعلق ب : button1

Edit1.text:='d:\'+edit1.text;

و إذا كان يريد الاختيار ما بين الأقراص يمكنك إضافة مكون combobox1 و ووضع أسماء الأقراص على شكل أصناف و تغير الكود إلى :

Edit1.text:=combobx1.text+edit1.text+'.txt';

أما عن الإضافة '*.txt' فهي لجعل المستخدم يكتب اسم الملف فقط دون الحاجة إلى كتاب اسم الملف + صيغة الملف

كيفية الكتابة داخل الملف الذي تم إنشائه

ما عليك إلا إضافة الكود التالي للأمر السابق :

WriteLn(newFile, 'my text');
System.CloseFile(newFile);

حيث أن هذا الكود يقوم بكتابة my text داخل الملف و يمكن جعلها النص الموجود في edit1 و هو كما فعلنا في المثال السابق . و الكود الذي يليه هو لغلق الملف بعد الكتابة

كيفية حذف ملف

قم بكتابة الأمر التالي في حدث الضغط على الزر button2

DeleteFile(edit1.text);

حيث نص أداة edit1 هو مسار الملف الذي نريد حذفه علما أنه يجب كتاب صيغة الملف أيضا بالإضافة إلى المسار

كيفية تحديد مسار ملف

قم بكتابة الأمر التالي في حدث الضغط على button1 :

showmessage(ExtractFilePath ('d:\newfile.txt'));

حيث سيظهر لنا مسار الملف في رسالة تظهر عند الضغط على button و إذا كنت تريد أن تجعل مسار الملف يظهر في مكان آخر مثلا عنوان النموذج أكتب الأمر التالي :

form1.Caption:=(ExtractFilePath(edit1.text));

حيث edit1.text هو مسار الملف

معرفة اسم الملف / صيغته

أكتب الكود التالي في حدث الضغط على الزر لمعرفة اسم الملف

Form1.caption:=ExtractFileName(edit1.text);

و الكود التالي لمعرفة صيغة الملف

showmessage(ExtractFileExt('d:\t.txt'));

سأكتب دروس جديدة و كثيرة عن التعامل مع الملفات و أتمنى أن يكون هذا الدرس قد نال إعجابكم و أفادكم

السلام عليكم و رحمة الله تعالى و بركاته

إشترك