בית
Top.Mail.Ru Yandeks.Metrika
פורום: "ראשי";
ארכיון נוכחי: 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, שם קצר, שם קובץ: מחרוזת; אני, ExtNum, גודל: מספר שלם;
להתחיל
// צור את ספריית הארכיון (אם היא לא שם)
שם הקובץ: = "RAMIZ.RCV"; GlobalStop: = שווא;
{$ i -} // chdir (".."); creatir ("R"); chdir (".."); {$ i +}
// קרא את הקובץ
עבור אני: = 1 ל- 50000 האם התחל
אם GlobalStop ואז Break;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
allocfile (f, File File); איפוס (f, 1); חסימת (f, b, 16384, גודל); סגור (ו); // למחוק (ו);
ExtNum: = 1000; ShortName: = ".. \ r \ RAMIZ";
לחזור על
inc (ExtNum); S: = כינוי קצר + inttostr (ExtNum) + ". RCV";
עד findfirst (S, $ 3f, SearchRec) <> 0;
allocfile (f, S);
לשכתב (f, 1);
שובר חסימה (f, b, גודל);
סגור (ו);
הסוף;
הסוף;



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; // <<<< ----- allocfile (f, S);
לכל קריאה לאתר לראשונה חייבת להיות קריאה ל- FindClose,
אחרת אתה יכול להשאיר את המערכת ללא משאבים במהירות רבה.
עיין בסעיף העזרה: "פונקציית FindFirst"






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

מדוע לקרוא 50000 פעמים באותו קובץ "RAMIZ.RCV"?
מדוע לחפש קובץ אם נקרא Rewrite?
השכתוב יוצר קובץ חיצוני חדש עם השם שהוקצה ל- F.
אם כבר קיים קובץ חיצוני עם אותו שם, הוא נמחק ונוצר קובץ ריק חדש במקומו.



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

> מקס צ'רניך ©

תודה

חשבתי שב Win 2000 הקוד באגי
allocfile (f, File File); איפוס (f, 1); חסימת (f, b, 16384, גודל); סגור (ו);

> Yu.Yu.

דוגמא למבחן



עמודים: 1 ענף שלם

פורום: "ראשי";
ארכיון נוכחי: 2002.01.08;
הורדה: [xml.tar.bz2];

למעלה









זיכרון: 0.57 MB
זמן: 0.034 c
3-21946
סט
2001-12-05 00:08
2002.01.08
שוב לעבוד עם בסיסים


1-22154
מרינה
2001-12-20 15:42
2002.01.08
מחיקת תוכן הספרייה


6-22275
מוסקאוור
2001-10-08 12:43
2002.01.08
כיצד אוכל לשלוח את הפקודה chmod דרך TNMFTP לשרת לינוקס?


1-22219
dimonf
2001-12-16 17:23
2002.01.08
איך להכין קנבס כאשר חלון כלשהו עובר עם חלון


14-22406
וועג
2001-11-10 12:56
2002.01.08
היה כאן שונה איתי ...





אפריקאנס אלבני ערבי אַרְמֶנִי אזרביג'אן הבסקים בלארוסית בולגרי קטלאנית הסיני (פשוט) סינית (מסורתית) קרואטית צ'כיה דני הולנדי אנגלית אסטוני פיליפיני פיני צרפתית
גליציה גאורגיה גרמני יווני קריאולית האיטית עברי הינדי הונגרי איסלנדי אינדונזי אירי איטלקי יפני קוריאני לטבי ליטאי מקדוניה מלאית מלטזית נורבגי
פרסי פולני פורטוגזי רומנית רוסי סרבית סלובקי סלובני ספרדי סוואהילית שבדי תאילנדי תורכי אוקראיני אורדו ויאטנמית וולשית יידיש בנגלית בוסנית
קבואנו אספרנטו גוג'ראטית האוסה המונג איגבו יָאוָנִי קנאדה לחמר לאו הלטינית מאורים מרתי מונגולי נפאלית פונג'בית סומליה טמילית טלוגו יורובה
זולו
Английский Французский Немецкий Итальянский Португальский Русский Испанский