إشترك

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




بسم الله الرحمان الرحيم
السلام عليكم و رحمة الله تعالى و بركاته في درس (حصريا )اليوم سنتعلم معا التعامل مع الملفات و لكن في هذا الدرس سنتعامل مع الملفات النصية مثل : *.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'));
سأكتب دروس جديدة و كثيرة عن التعامل مع الملفات و أتمنى أن يكون هذا الدرس قد نال إعجابكم و أفادكم
السلام عليكم و رحمة الله تعالى و بركاته 

ليست هناك تعليقات

جميع الحقوق محفوظة لــ تعلم دلفي بالعربية 2015 ©