delphi4arab منتديات دلفي للعرب

السلام عليكم

كيف احفظ ملف وفي نفس الوقت نفتحو بنفس الزر ؟
عبارة عن برنامج يقوم باضافة نص للميمو ومن ثم يحفظو بلاحقة vbs المطلوب كيف يمكني اسدتعائه بعد الحفظ بنفس الزر ؟

كود :
begin
if SaveDialog1.Execute then begin
   Memo1.Lines.SaveToFile
     (SaveDialog1.FileName + '.vbs');
     if opendialog1.execute then begin
end;
 end;
 end;

وشكرا

وعليكم السلام
وضح اكثر مادا تريد

sami كتب :المطلوب كيف يمكني اسدتعائه بعد الحفظ بنفس الزر ؟

كود :
Memo.Lines.LoadFromFile('FileName');

فتح الملف الذي تم حفظه مباشرة بعد الحفظ دون استعمال زر اخر للفتح
بالنسبة لل Memo.Lines.LoadFromFile('FileName'); تظهر رسالة مفادها
Impossible d'ouvrir le fichier filename

ادا استعملت SaveDialog وحده

كود :
if SaveDialog1.Execute then
begin
  Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.vbs');
  Memo1.Lines.LoadFromFile(SaveDialog1.FileName+ '.vbs');
end;

وادا استعملت SaveDialog و OpenDialog معا

كود :
if SaveDialog1.Execute then
begin
  Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.vbs');
end;
if OpenDialog1.execute then
begin
  Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;

اضبط filter

كود :
vbs file (*.vbs) |*.vbs

بالتوفيق

sami

Agmcz

sami

Agmcz