+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يتم حفظ وفتح ملف vbs! (/showthread.php?tid=4233)
كيف يتم حفظ وفتح ملف vbs! - sami - 31-05-2012
السلام عليكم
كيف احفظ ملف وفي نفس الوقت نفتحو بنفس الزر ؟
عبارة عن برنامج يقوم باضافة نص للميمو ومن ثم يحفظو بلاحقة vbs المطلوب كيف يمكني اسدتعائه بعد الحفظ بنفس الزر ؟
كود :
begin
if SaveDialog1.Execute then begin
Memo1.Lines.SaveToFile
(SaveDialog1.FileName + '.vbs');
if opendialog1.execute then begin
end;
end;
end;كيف يتم حفظ وفتح ملف vbs! - Agmcz - 31-05-2012
وعليكم السلام
وضح اكثر مادا تريد
sami كتب :المطلوب كيف يمكني اسدتعائه بعد الحفظ بنفس الزر ؟
كود :
Memo.Lines.LoadFromFile('FileName');كيف يتم حفظ وفتح ملف vbs! - sami - 31-05-2012
فتح الملف الذي تم حفظه مباشرة بعد الحفظ دون استعمال زر اخر للفتح
بالنسبة لل Memo.Lines.LoadFromFile('FileName'); تظهر رسالة مفادها
Impossible d'ouvrir le fichier filename
كيف يتم حفظ وفتح ملف vbs! - Agmcz - 01-06-2012
ادا استعملت SaveDialog وحده
كود :
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.vbs');
Memo1.Lines.LoadFromFile(SaveDialog1.FileName+ '.vbs');
end;كود :
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName + '.vbs');
end;
if OpenDialog1.execute then
begin
Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;كود :
vbs file (*.vbs) |*.vbs