delphi4arab منتديات دلفي للعرب
كيف أشاهد ملف في edit - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف أشاهد ملف في edit (/showthread.php?tid=1983)

كيف أشاهد ملف في edit - ALG2009 - 07-05-2010

السلام عليكم ورحمة الله وبركاته

أود أن أضع في الـ form زر وedit
عند الضغط على الزر يطلب من تحديد مكان الملف وعند الإختيار يفتح لي الملف(به عدة أسطر) في الـ edit

وجزاكم الله خير

كيف أشاهد ملف في edit - musvc - 09-05-2010

[COLOR="Purple"]الأمر بسيط , فقط لديك مجموعة دوال جاهزة يمكنك استخدامها

هكذا :

كود :
Memo1.Lines.LoadFromFile('C:\...');

سلام[/COLOR]

كيف أشاهد ملف في edit - AL-MOB4RM3G - 09-05-2010

وعليكم السلام ورحمة الله,
طريقة ثانية اخي الكريم,

ضع في المشروع التآلي,
Button
Memo
Opendialog

ثم في الحدث OnClick لل Button اكتب التآلي,
PHP كود :
if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end;
end; 

و الخطوة الأخيرة هي ان تدرس الكود في الأعلى و تحاول ان تفهمه,
بالتوفيق اخي,

كيف أشاهد ملف في edit - ALG2009 - 10-05-2010

جزاكم الله خيرا

musvc كتب :[COLOR="Purple"]
كود :
Memo1.Lines.LoadFromFile('C:\...');
[/COLOR]

لقد جربت الكود وإشتغل الكود ،بهذه الطريقة يجب تحديد مكان الملف مسبقا بارك الله فيك

AL-MOB4RM3G كتب :
PHP كود :
if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end;
end; 
لقد طبقت الكود وعمل بشكل جيد الكود شبه مفهوم وهو شبيه بالمثال الأول ولكن يطلب منك تحديد مكان الملف وهذا ما كنت أبحث عنه بقي شيء لم أفهمه وهو جملة الشرط if opendialog1.Execute كيف تم مقارنة تنفيذ opendialog1 وهل يمكن أنه لن ينفذ الأمر؟

كيف أشاهد ملف في edit - محمد نسمان - 10-05-2010

Execute عبارة عن دالة وهي تقوم بإرجاع قيمة True اذا اختار المستخدم ملف وضغط open وfalse عدا ذلك

لذلك انت تحتاج لفحص حالتها

كود :
if opendialog1.Execute
او
كود :
if opendialog1.Execute = true

اما اذا لم يتم اختيار ملف اي عند الحالة false فإن سطر الكود الثاني الذي يوم بتحميل الملف سوف يظهر خطاً لذلك فإضافة الشرط سوف يضمن عدم ظهور الخطاً الخاص بعدم اختيار ملف

وبالطبع الطريقة الاولى اقصر واسهل

كيف أشاهد ملف في edit - hanipino - 10-05-2010

السلام عليكم

يمكن كتابة اسم ملف غير موجود ... وبعد الضغط على open سيحدث خطاء . لذالك ربما يجب الاستعانة بدالة لمعرفة هل هدا الملف موجود ام لا ... مثلا

PHP كود :
begin
  if(dlgOpen1.Execute)and(FileAge(dlgOpen1.FileName) <> -1) then
    mmo1.Lines.LoadFromFile(dlgOpen1.FileName)
  else
  Exit;
end; 


كيف أشاهد ملف في edit - kachwahed - 15-05-2010

وعليكم السلام ورحمة الله وبركاته
إقتباس :يمكن كتابة اسم ملف غير موجود
صحيح، لذلك وجد خيار ofFileMustExist لكائن TOpenDialog غير مفعل افتراضا:
كود :
OpenDialog1.Options := OpenDialog1.Options + [ofFileMustExist];
تفعليه يكفي للفحص Wink

كيف أشاهد ملف في edit - hanipino - 16-05-2010

بارك الله فيك اخى كاش واحد . نعم Smile