كيف تحميل مستندات نصيه من مجلد الى ListBox

[قديم الشوق]

السلام عليكم ورحمة الله وبركاته
كيف تحميل مستندات نصيه من مجلد الى ListBox ومن ثم عرضها ب Memo
وشكراً

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
قم بمحاولة (ولو خاطئة) ثم أرفقها
[COLOR="Red"]ملاحظة: أرفق فقط الملفات:

كود :

*.dpr, *.pas, *.dfm

بالتوفيق.[/COLOR]

[محمد عبد العزيز]

كنقطة للانطلاق اطلع على FindFirst و FindNext

[قديم الشوق]

بصراحه من أمس أحاول فيه مافيه فايده كلها أخطاء
حاولت تحميل أسماء الملفات الموجوده في مجلد الى listbox لاكن مافيه فايده

كود :

ListBox1.Items.GetNamePath:='.\Files';

نجحت في تحميل ملف واحد عن طريق الكود التالي

كود :

ListBox1.Items.LoadFromFile('.\Files\w.txt');

حاولت أحدد مسار الملف في Label ومافيه فايده
وحاولت في جلب النص من listbox الى memo1 عن طريق الكود التالي

كود :

ListBox1.Items.Add(Memo1.Lines);

[kachwahed]

بصراحه من أمس أحاول فيه مافيه فايده كلها [color="red"]أخطاء

طبعا أخطاء؟؟؟ هذا ما أنتظره أين المرفق؟
قمت بمحاولات... جيد
لاحظ: في كل محاولة تعلمت شيئا جديدا
أرفق ولو واجهة فارغة، وبين الذي تريد عمله.[/color]

[قديم الشوق]

تم أرفاق المشروع
خطة المشروع تحميل أسماء الملفات النصيه ب listbox وعند النقر على الأسم يتم عرض
مابدخل المستند النصي بال memo وعر ض المسار ب Label
أطلع عليه

[kachwahed]

جيد...
لا تعقد الأمور على نفسك، أضف n و w في Items للـ ListBox1
ثم اكتب هذا في الحدث OnClick للـ ListBox1

كود :

Memo1.Lines.LoadFromFile('.\Files\'+ListBox1.Items[ListBox1.ItemIndex]+'.txt');

طالع هذا الموضوع جيدا:
استفسار حول TComboBox
بالتوفيق أخي.

[قديم الشوق]

ماعقدت الأمور بالعكس المشروع 100%
انا قاصد ان تكون أسماء الملفات في ListBox1 ومحتوى المفكره يكون في Memo1
وعند الضغط على أسم الملف في ListBox1 يعرض لي محتوى النص في Memo1
الكود فيه خطأ

[kachwahed]

السلام عليكم ورحمة الله
عذرا أخي الكريم...
أين الخطأ؟

[قديم الشوق]

عندما وضعت الكود ظهرت لي هذه الرساله

الخطأ كان هنا




بعد ماجربت المرفق عمل معي 100%