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

إلى

لا يُنشئ الكود المزيد من ملفات 273 في win2000 البحث عن فروع مماثلة


Dmitriy(new)   (2001-12-13 19:37) [0]

رمز لم يعد يخلق `ملفات 273 في win2000

الإجراء TForm1.Button1Click (المرسل: TObject) ؛
var SearchRec: Tsearchrec؛ f: ملف ؛ b: صفيف [0..16383] من البايت ؛ S ، الاسم المختصر ، FileName: string؛ أنا ، ExtNum ، الحجم: عدد صحيح.
بدأ
// إنشاء دليل الأرشيف (إن لم يكن هناك)
FileName: = "RAMIZ.RCV"؛ GlobalStop: = False؛
{$ i -} // chdir ("..")؛ Creatir ("R") ؛ chdir ("..") ؛ {$ i +}
// قراءة الملف
بالنسبة إلى I: = 1 To 50000 Do Begin
إذا GlobalStop ثم استراحة.
Label1.Caption: = inttostr (i)؛ Application.ProcessMessages.
assignfile (f ، FileName) ؛ إعادة تعيين (f ، 1) ؛ blockread (f، b، 16384، size)؛ وثيقة ملف (و) ؛ // erase (f)؛
ExtNum: = 1000؛ الاسم المختصر: = ".. \ r \ RAMIZ"؛
كرر
inc (ExtNum) ؛ S: = اختصار + inttostr (ExtNum) + ". RCV"؛
حتى findfirst (S، $ 3f، SearchRec) <> 0؛
assignfile (f ، S) ؛
أعد كتابة (f ، 1) ؛
blockwrite (f، b، size)؛
وثيقة ملف (و) ؛
الغاية؛
الغاية؛



Dmitriy(new)   (2001-12-13 20:23) [1]

وأنه لا أحد يستطيع أن يفهم



Dmitriy(new)   (2001-12-13 20:40) [2]

مساعدة !!!!



Макс Черных   (2001-12-13 22:47) [3]

1. نوع من رمز رائع.
2. ما لفت انتباهك على الفور:
كرر inc (ExtNum) ؛ S: = اختصار + inttostr (ExtNum) + ". RCV"؛ حتى findfirst (S، $ 3f، SearchRec) <> 0؛ // <<<< ----- assignfile (f ، S) ؛
يجب أن يكون لكل مكالمة إلى findfirst مكالمة إلى FindClose ،
خلاف ذلك ، يمكنك ترك النظام دون موارد بسرعة كبيرة.
راجع قسم المساعدة: "وظيفة FindFirst"






Ю.Ю.   (2001-12-14 06:52) [4]

لماذا تقرأ 50000 مرات نفس الملف "RAMIZ.RCV"؟
لماذا البحث عن ملف إذا كان يسمى Rewrite؟
إعادة كتابة بإنشاء ملف خارجي جديد بالاسم المعين لـ F.
إذا كان هناك ملف خارجي بنفس الاسم موجود بالفعل ، فسيتم حذفه ويتم إنشاء ملف فارغ جديد في مكانه.



Dmitriy(new)   (2001-12-16 09:38) [5]

> Max Chernykh ©

شكر

اعتقدت أنه في وين 2000 رمز هو عربات التي تجرها الدواب
assignfile (f ، FileName) ؛ إعادة تعيين (f ، 1) ؛ blockread (f، b، 16384، size)؛ وثيقة ملف (و) ؛

> يو.

مثال الاختبار



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

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

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





الذاكرة: 0.55 ميغابايت
الوقت: 0.044 ج
14-22382
بانوف
2001-11-08 18:54
2002.01.08
تابع http://delphi.mastak.ru/cgi-bin/forum.pl؟look=1&id=1005233643&n=3


1-22206
T2
2001-12-16 07:11
2002.01.08
محاذاة المجال


3-21928
كايف
2001-12-04 17:42
2002.01.08
تجاوز حسابي أو اقتطاع سلسلة في استعادة


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


14-22400
قطع الطاقم
2001-11-11 17:10
2002.01.08
ولماذا الجميع خمول؟





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