בית
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. מה שתופס את עצמך מייד:

repeat
inc (ExtNum); S:= shortname+inttostr (ExtNum)+".RCV";
until findfirst (S,$3f,SearchRec)<>0; //<<<<-----
assignfile (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.56 MB
זמן: 0.022 c
7-22432
וולדמר
2001-09-25 04:12
2002.01.08
הקצאת עדיפות בעת האתחול ...


14-22400
קיפוד
2001-11-11 17:10
2002.01.08
ולמה כולם כל כך רדומים?


6-22314
SDS
2001-06-10 23:58
2002.01.08
שאלה לגבי שיטת POST


14-22332
נונאמה (אנדרוז)
2001-11-05 16:20
2002.01.08
מנחה עזרה !!!


1-22227
Tosov
2001-12-15 10:43
2002.01.08
כיצד לעבוד עם TInplaceEdit





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