كيف أشاهد ملف في edit

[ALG2009]

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

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

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

[musvc]

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

هكذا :

كود :

Memo1.Lines.LoadFromFile('C:\...');

سلام[/COLOR]

[AL-MOB4RM3G]

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

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

ثم في الحدث OnClick لل Button اكتب التآلي,

PHP كود :

if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end;
end; 


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

[ALG2009]

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

[COLOR="Purple"]

كود :

Memo1.Lines.LoadFromFile('C:\...');

[/COLOR]

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

PHP كود :

if opendialog1.Execute then
  begin
    memo1.Lines.LoadFromFile(opendialog1.FileName);
  end;
end; 


لقد طبقت الكود وعمل بشكل جيد الكود شبه مفهوم وهو شبيه بالمثال الأول ولكن يطلب منك تحديد مكان الملف وهذا ما كنت أبحث عنه بقي شيء لم أفهمه وهو جملة الشرط if opendialog1.Execute كيف تم مقارنة تنفيذ opendialog1 وهل يمكن أنه لن ينفذ الأمر؟

[محمد نسمان]

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

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

كود :

if opendialog1.Execute

او

كود :

if opendialog1.Execute = true

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

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

[hanipino]

السلام عليكم

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

PHP كود :

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


[kachwahed]

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

يمكن كتابة اسم ملف غير موجود

صحيح، لذلك وجد خيار ofFileMustExist لكائن TOpenDialog غير مفعل افتراضا:

كود :

OpenDialog1.Options := OpenDialog1.Options + [ofFileMustExist];

تفعليه يكفي للفحص

[hanipino]

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