منزل
Top.Mail.Ru Yandeks.Metrika
المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

إلى

كيف؟ البحث عن فروع مماثلة


Xtorm   (2001-12-19 10:40) [0]

كيفية الحصول على قائمة كاملة من الملفات والمجلدات دعنا نقول على محرك أقراص مع:
فقط دون مساعدة من مكونات ؟؟



Bizon   (2001-12-19 10:46) [1]

استخدم FindFirst & FindNext



Dimka Maslov   (2001-12-19 10:52) [2]

FindFiles (مسار ، قناع: سلسلة ؛ قائمة: TStrings ؛ IncludeSubDir: Boolean = True) ؛ فار SearchRec: TSearchRec؛ FindResult: عدد صحيح بدأ List.BeginUpdate. محاولة المسار: = IncludeTrailingBackSlash (المسار) ؛ FindResult: = FindFirst (Path + "*. *"، FaAnyFile، SearchRec)؛ محاولة بينما تبدأ FindResult = 0 مع SearchRec إذا (Attr و faDirectory <> 0) ثم ابدأ إذا IncludeSubDir و (الاسم <> "..") و (الاسم <> ".") ثم FindFiles (مسار + اسم ، قناع ، قائمة ، IncludeSubDir) ؛ نهاية آخر تبدأ إذا MatchesMask (الاسم ، قناع) ثم List.Add (مسار + اسم) ؛ ينتهي. FindResult: = FindNext (SearchRec) ؛ ينتهي. أخيرا FindClose (SearchRec) ؛ ينتهي. أخيرا List.EndUpdate. ينتهي. ينتهي.



cpp   (2001-12-19 10:53) [3]

حتى تتمكن من ضبط مصادري

الإجراء ReadAllFiles (DirFrom: string)؛
var SearchRecOtkuda: TSearchRec؛



الإجراء ReadFile (FileName: string)؛
بدأ
// ماذا نريد ونفعل بالملف
الغاية؛

الإجراء ReadDir (DirName: string)؛
بدأ
// ما نريده ونفعله مع الدليل
إذا (DirName <> ".") و (DirName <> "..") بعد ذلك
بدأ
ReadAllFiles (DirFrom + "\" + DirName) ؛
الغاية؛
الغاية؛

بدأ
إذا FindFirst (DirFrom + "\ *. *" ، faAnyFile ، SearchRecOtkuda) = 0
بدأ
if (faDirectory و SearchRecOtkuda.Attr)> 0 بعد ذلك
ReadDir (SearchRecOtkuda.Name)
آخر
ReadFile (SearchRecOtkuda.Name) ؛
بينما FindNext (SearchRecOtkuda) = 0 تفعل
بدأ
if (faDirectory و SearchRecOtkuda.Attr)> 0 بعد ذلك
ReadDir (SearchRecOtkuda.Name)
آخر
ReadFile (SearchRecOtkuda.Name) ؛
الغاية؛
الغاية؛
الغاية؛



Xtorm   (2001-12-19 11:39) [4]

شكرا الجميع يعمل الآن!



صفحات: 1 فرع كامل

المنتدى: "Main";
الأرشيف الحالي: 2002.01.08;
تنزيل: [xml.tar.bz2];

الطابق العلوي





الذاكرة: 0.55 ميغابايت
الوقت: 0.024 ج
4-22508
Gluka
2001-11-06 00:18
2002.01.08
هل من الممكن تغيير مظهر المؤشر بطريقة ما بطريقة أخرى؟


1-22015
صياد
2001-12-17 13:17
2002.01.08
صورة للطابعة


14-22347
roman001
2001-11-06 18:09
2002.01.08
استضافة


1-22176
Serg5
2001-12-20 14:57
2002.01.08
مرة أخرى ، مشكلة النص: أقوم بعرض Image1.Canvas.TextOut ، ولكن أسفل النص نفسه عداء أبيض. هل من الممكن إذا لم تقم بإزالة (ضع الحروف فقط) ، ثم اجعل العداء أسود على الأقل.


4-22455
مامد
2001-10-31 10:13
2002.01.08
تفعيل نافذة برنامج آخر





الأفريكانية الألبانية عربي الأرميني أذربيجان الباسكي البيلاروسية Bulgarian التشيكية الصينية المبسطة) تقاليد صينية) الكرواتية التشيكية دانماركي Dutch English الإستونية الفلبينية Finnish جيب
الجاليكية الجورجية الألمانيّة اليونانيّة الكريولية الهايتية اللغة العبرية الهندية الهنغارية أيسلندي Indonesian الأيرلندية Italian اليابانيّة الكوريّة اللاتفية اللتوانية المقدونية الملايو المالطية Norwegian
اللغة الفارسية بولنديّة البرتغاليّة رومانية Russian صربي السلوفاكيّة سلوفيني إسباني السواحيلي Swedish Thai التركية الأوكراني الأردية الفيتنامية ويلزي اليديشية البنغالي البوسنية
السيبيونو الاسبرانتو الغوجاراتية الهوسا همونغ الإيبو جاوي الكانادا الخمير لاو لاتينية الماوري المهاراتية المنغولية النيبالية البنجابية الصومالية التاميل التيلجو اليوروبا
زولو
Английский Французский ألماني Итальянский البرتغالية Русский Испанский