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

إلى

حذف محتويات الدليل البحث عن فروع مماثلة


Марина   (2001-12-20 15:42) [0]

أخبرني ، من فضلك ، عن كيفية حذف محتويات الدليل ، وترك الدليل نفسه؟ هناك حاجة إلى شيء من هذا القبيل deletefile ("c: \ kio \ massiv \ *. *"). أنا ممتن مقدمًا وأعتذر عن سؤال "الدمى".



gek   (2001-12-20 15:47) [1]

إذا Findfirst ("\ TEMP \ *. tmp" ، faAnyFile ، SearchRec) = 0
بينما (FindNext (SearchRec) = 0) تفعل
إن لم يكن حذف (pchar ("\ TEMP \" + SearchRec.name)) ثم
Application.Terminate.
FindClose (SearchRec) ؛



Dimka Maslov   (2001-12-20 16:05) [2]

يستخدم ويندوز ، SysUtils ، فئات ، أقنعة. الإجراء DeleteFiles (المسار: سلسلة) ؛ فار قناع: سلسلة. SearchRec: TSearchRec؛ FindResult: عدد صحيح قائمة: TStringList. i: عدد صحيح بدأ قناع: = ExtractFileName (المسار) ؛ إذا قناع = "" ثم قناع: = "*. *" ؛ المسار: = ExtractFilePath (المسار) ؛ إذا المسار = "" ثم المسار: = IncludeTrailingBackslash (GetCurrentDir) ؛ قائمة: = TStringList.Create ؛ محاولة FindResult: = FindFirst (Path + "*. *"، FaAnyFile، SearchRec)؛ محاولة بينما تبدأ FindResult = 0 مع SearchRec إذا ((Attr و faDirectory) = 0) و MatchesMask (اسم ، قناع) ، ثم List.Add (الاسم) ؛ FindResult: = FindNext (SearchRec) ؛ ينتهي. for i: = 0 to List.Count - 1 do DeleteFile (Path + List [i])؛ أخيرا FindClose (SearchRec) ؛ ينتهي. أخيرا List.Free. ينتهي. ينتهي.



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

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

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





الذاكرة: 0.54 ميغابايت
الوقت: 0.02 ج
3-21906
يوري جوكوف
2001-11-21 09:40
2002.01.08
Oracle ADO vs DOA - fido7.ru.delphi.db


14-22319
وكالة الطاقة الدولية
2001-11-02 13:34
2002.01.08
أي شخص يرتدي (ل) النظارات! السؤال ليس خاملا


14-22353
ميرلين
2001-11-02 10:13
2002.01.08
أنا مصدوم


1-22244
Socol
2001-12-15 15:42
2002.01.08
تحميل الملف!


1-22146
Mikle
2001-12-19 17:19
2002.01.08
مواطن الخلل عند الطباعة إلى طابعة نقطية





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