ما هي الملفات و كيف نتعامل معها ؟؟

[TF6M]

3- يمكننا الإستغناء أيضا عن المركبات الجاهزة و التي تمكننا من كتابة أو القراءة من ملف نصي !!
فإمتداد الملف لا يعني بالظرورة يدل على طبيعته ؟ كيف :

- أي ملف من نمط TextFile (الجزء الأول) أو ناتج عن مركب (TStrings) فهو ملف نصي .

بما أننا إستخدمنا مركبات من صنف Tstrings فببساطة يمكننا الإستغناء عنها و العمل مباشرة بهذا الصنف !! (الذي يمكننا من الوصول الى الصنف المشتق TstringList) .

هذا مثال بسيط يوفر لنا حرية أكثر أمان أكثر حجم أقل لبرنامجنا :

كود :

procedure TForm1.SaveToClick(Sender: TObject); var List:TStrings; begin List:=TStringList.Create; List.Add('www.delphi4arab.net'); List.Add('TF6mehboul'); List.SaveToFile(Edit1.Text); List.Free; end;

في ما بعد سنتعلم كيفية تسير الاخطاء (Try/Except/Finally) التي ستعطي للكود إستقرارية
أكبر .

كما نضيف زر أخر Load الدي يقرأ من الملف المحفوظ أولا بالطبع لن أتحقق من وجوده لأنه مثال تعليمي .

كود :

List:=TStringList.Create; List.LoadFromFile(Edit1.Text); ShowMessage(List.Text); List.Free;

سهل أليس كذلك .. هدا هو الكود كامل :

كود :

var List:TStrings; procedure TForm1.SaveToClick(Sender: TObject); begin List:=TStringList.Create; List.Add('www.delphi4arab.net'); List.Add('TF6mehboul'); List.SaveToFile(Edit1.Text); List.Free; end; procedure TForm1.LoadClick(Sender: TObject); begin List:=TStringList.Create; List.LoadFromFile(Edit1.Text); ShowMessage(List.Text); List.Free; end;