كيف افتح ملف

تمكنت من الوصول للحل:)

procedure TForm1.Button1Click(Sender: TObject);



var



  fs: TFileStream;



  S: string;



begin



s:='Lola';



 fs := TFileStream.Create('try.txt', fmOpenread or fmCreate);



 s:=edit1.Text;



  fs.WriteBuffer(s[1], Length(s));



 fs.Free;



end;

لا اعرف لماذا يظهر الكود بهذا الشكل :(

المشكله انني اريده اذا كان الملف موجود يقرأ محتواه

واذا كان غير موجود ينشأه ويضع البيانات فيه

ولكن للاسف في كل مره يمسح كل المعلومات

واذا جعلته فقط read onlyاذا كان غير موجود لا بنشأه

ارجوا المساعده احتاجه ضروري

السلام عليكم

الأخت العزيزة

عليك اولا فحص هل الملف موجود ام لا بإستخدام دالة FileExists ثم بعد ذلك فتح الملف للقراءة ان كان موجود او انشاء الملف وهذا مثال لذلك

procedure TForm1.Button1Click(Sender: TObject);
var
  fs: TFileStream;
  S: string;
begin
//  s:='Lola';
  try
    if FileExists('try.txt') then
    begin
      fs := TFileStream.Create('try.txt', fmOpenread );
      SetLength(S, fs.Size);
      fs.Read(Pointer(S)^, fs.Size);
      Edit1.Text := S;
    end
    else
    begin
      fs := TFileStream.Create('try.txt', fmCreate);
      s:=edit1.Text;
      fs.WriteBuffer(Pointer(S)^, Length(S));
    end;
  finally
    fs.Free;
  end;
end;

إن إستخدمتي Memo أو RichEdit يمكنك القراءة والكتابة بسهولة بإستخدام مثود Memo1.Lines.SaveToFile و Memo1.Lines.LoadFromFile دون الحاجة الى استخدام Streams

ليظهر الكود بشكل منسق صحيح إستخدمي Code2 بدلا من Code

مع تحياتي

والسلام

شكرا يعطيك العافيه :)