Տուն
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.56 ՄԲ
Ժամանակը `0.022 գ
7-22426
inferno123
2001-09-25 10:32
2002.01.08
Պորտ ծրագրավորում


4-22506
gluca
2001-11-06 00:16
2002.01.08
Ինչպես cram * .dll-ku exe ֆայլում:


1-22075
ինչպես
2001-12-19 12:40
2002.01.08
Սեղաններ MS Word- ում


14-22362
Mifi
2001-11-04 02:34
2002.01.08
ինչպես գտնել մարդը


1-22020
Լեո ^ Սան
2001-12-18 07:08
2002.01.08
Tmemo





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