25-03-2009, 07:56 PM
السلام عليكم
شكرا لكم على الدرس لقد نفذته بهذه الطريقة
وشكرا
شكرا لكم على الدرس لقد نفذته بهذه الطريقة
PHP كود :
procedure TForm1.SaveToClick(Sender: TObject);
begin
List:=TStringList.Create;
list.Text:=memo1.Text; // حفظ محتوى المذكرة فى ملف نصى (المفكرة)
List.SaveToFile(Edit1.Text);
List.Free;
end;
procedure TForm1.LoadClick(Sender: TObject);
begin
List:=TStringList.Create;
List.LoadFromFile(Edit1.Text); // القراءة والتعديل من ملف نصى
memo1.Text:=list.Text;
List.Free;
end;
إقتباس :في ما بعد سنتعلم كيفية تسير الاخطاء (try/except/finally) التي ستعطي للكود إستقرارية[مع التبسيط والافاضة لو سمحت كى افهم قليلا
وشكرا

