السلام عليكم ورحمة الله وبركاته
أود أن أضع في الـ form زر وedit
عند الضغط على الزر يطلب من تحديد مكان الملف وعند الإختيار يفتح لي الملف(به عدة أسطر) في الـ edit
وجزاكم الله خير
[COLOR="Purple"]الأمر بسيط , فقط لديك مجموعة دوال جاهزة يمكنك استخدامها
هكذا :
كود :
Memo1.Lines.LoadFromFile('C:\...');
سلام[/COLOR]
وعليكم السلام ورحمة الله,
طريقة ثانية اخي الكريم,
ضع في المشروع التآلي,
Button
Memo
Opendialog
ثم في الحدث OnClick لل Button اكتب التآلي,
PHP كود :
if opendialog1.Execute then
begin
memo1.Lines.LoadFromFile(opendialog1.FileName);
end;
end;
و الخطوة الأخيرة هي ان تدرس الكود في الأعلى و تحاول ان تفهمه,
بالتوفيق اخي,
جزاكم الله خيرا
musvc كتب :[COLOR="Purple"]كود :
Memo1.Lines.LoadFromFile('C:\...');
لقد جربت الكود وإشتغل الكود ،بهذه الطريقة يجب تحديد مكان الملف مسبقا بارك الله فيك
AL-MOB4RM3G كتب :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 فإن سطر الكود الثاني الذي يوم بتحميل الملف سوف يظهر خطاً لذلك فإضافة الشرط سوف يضمن عدم ظهور الخطاً الخاص بعدم اختيار ملف
وبالطبع الطريقة الاولى اقصر واسهل
السلام عليكم
يمكن كتابة اسم ملف غير موجود ... وبعد الضغط على open سيحدث خطاء . لذالك ربما يجب الاستعانة بدالة لمعرفة هل هدا الملف موجود ام لا ... مثلا
PHP كود :
begin
if(dlgOpen1.Execute)and(FileAge(dlgOpen1.FileName) <> -1) then
mmo1.Lines.LoadFromFile(dlgOpen1.FileName)
else
Exit;
end;
بارك الله فيك اخى كاش واحد . نعم
