Տուն
Top.Mail.Ru Moscow
Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Down

կոդը չի ստեղծում ավելի քան `273 ֆայլ win2000- ում Գտնել նմանատիպ մասնաճյուղեր


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

կոդը չի ստեղծում ավելի քան `273 ֆայլ win2000- ում

ընթացակարգ TForm1.Button1Click (Sender: TObject);
ՈրոնելՎերց: Tsearchrec; f: ֆայլ; b: array [0..16383] բայտ; S, shortname, FileName: string; Ես, ExtNum, չափս. Integer;
սկսել
// Արխիվի գրացուցակը ստեղծեք (եթե չկա)
Ֆայլի անուն. = "RAMIZ.RCV"; GlobalStop: = կեղծ;
{$ i -} // chdir (".."); ստեղծեց ("R"); chdir (".."); {$ i +}
// կարդալ ֆայլը
For I: = 1 to 50000- ը սկսել
Եթե ​​GlobalStop ապա Break;
Label1.Caption: = inttostr (i); Application.ProcessMessages;
assignfile (f, FileName); reset (f, 1); blocker (f, b, xnumx, չափ); closefile (f); // ջնջել (f);
ExtNum: = 1000; ShortName: = ".. \ r \ RAMIZ";
կրկնել
inc (ExtNum); S: = shortname + inttostr (ExtNum) + "RCV";
մինչեւ հայտնաբերման (S, $ 3f, SearchRec) <> 0;
assignfile (f, s);
rewrite (f, 1);
blockwrite (f, b, չափ);
closefile (f);
վերջը.
վերջը.



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: = shortname + inttostr (ExtNum) + "RCV"; մինչեւ հայտնաբերման (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]

> Max Black ©

Շնորհակալություն

Ես կարծում էի, որ Win 2000- ում կոդն է խելագարված
assignfile (f, FileName); reset (f, 1); blocker (f, b, xnumx, չափ); closefile (f);

> Yu.Yu.

օրինակ փորձարկում



Էջեր: 1 ամբողջ ճյուղը

Ֆորում: «Գլխավոր»;
Ընթացիկ արխիվը `2002.01.08;
Բեռնել: [xml.tar.bz2];

Up









Հիշողություն `0.57 ՄԲ
Ժամանակը `0.044 գ
6-22307
Leviathan
2001-10-12 12:54
2002.01.08
NMFTP երեսին !!!!


14-22389
դատավորը
2001-11-08 15:38
2002.01.08
CashFiesta


14-22343
Merlin
2001-11-02 14:17
2002.01.08
Ծիծաղով ես գրեթե ընկա հատակ:


4-22513
Oxy2- ը
2001-10-23 23:23
2002.01.08
Ինչպես ստեղծել մաքուր API- ի տարբեր վերահսկում ձեւեր:


14-22320
Alexandr
2001-11-14 14:13
2002.01.08
Wow





afrikaans ալբանական արաբական հայերեն ադրբեջանական Բասկերի Բելառուսի Բուլղարիայի catalan Չինարեն (պարզեցված) Չինարեն (ավանդական) Խորվաթիայի չեխ դանիերեն հոլանդական Անգլերեն
Էստոնիայի filipino ֆիններեն ֆրանսերեն
galician վրացական գերմանական հունարեն haitian Creole եբրայերեն հինդի հունգարերեն icelandic հայերեն իռլանդական իտալական ճապոնացի Կորեայի Լատվիայի Լիտվայի մակեդոներեն Մալայերեն մալթերեն նորվեգական
պարսկական Լեհաստանի պորտուգալացի ռումինական ռուսական սերբերեն Սլովակիայի Սլովենիայի իսպաներեն սուահիլի շվեդերեն թայերեն թուրքական ուկրաինական ուրդու վիետնամերեն ուելսերեն հայերեն bengali բոսնիերեն
Cebuano Esperanto գուջարաթի հաուսա Hmong Igbo ճավաերեն kannada Khmer Lao լատիներեն մաորի մարաթի մոնղոլական նեպալերեն Punjabi Somali tamil telugu յորուբա
զուլուսերեն
Անգլերեն Французский Немецкий Итальянский Португальский Русский Испанский