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

Down

Ինչպես? Գտնել նմանատիպ մասնաճյուղեր


Xtorm   (2001-12-19 10:40) [0]

Ինչպես ստանալ ֆայլերի և պանակների ամբողջ ցուցակը, եկեք ասենք, որ սկավառակով կա ՝ \
միայն առանց բաղադրիչների օգնության ???



Bizon   (2001-12-19 10:46) [1]

Օգտագործեք FindFirst & FindNext



Dimka Maslov   (2001-12-19 10:52) [2]

կարգը FindFiles (Ուղին, դիմակ. լարային; ցուցակ. TStrings; IncludSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: Interes; սկսվում է Ցուցակ .Առաջարկեք; փորձիր Ուղին. = ՆերառելTrailingBackSlash (Ուղին); FindResult: = FindFirst (Ուղի + "*. *", FaAnyFile, SearchRec); փորձիր իսկ FindResult = 0- ը անում են SearchRec- ով եթե (Attr և faDirectory <> 0), ապա սկսվում են եթե ներառեք SubDir- ը և (Անունը <> "..") և (Անունը <> ".") ապա FindFiles (Ուղի + անուն, դիմակ, ցուցակ, IncludSubDir); վերջը սկսվում է եթե MatchesMask (Անուն, Դիմակ), ապա List.Add (Ուղի + անուն); վերջ; FindResult. = FindNext (SearchRec); վերջ; վերջապես FindClose (SearchRec); վերջ; վերջապես Ցուցակ .EndUpdate; վերջ; վերջ;



cpp   (2001-12-19 10:53) [3]

Այսպիսով, դուք կարող եք լավ կատարելագործել իմ աղբյուրները

ընթացակարգը ReadAllFiles (DirFrom: լարային);
var SearchRecOtkuda: TSearchRec;



կարգը ReadFile (FileName: լարային);
սկսել
// այն, ինչ մենք ուզում ենք և ինչ ենք անում ֆայլի հետ
վերջը.

ընթացակարգը ReadDir (DirName: լարային);
սկսել
// այն, ինչ ուզում ենք և անենք գրացուցակի հետ
եթե (DirName <> ".") և (DirName <> ".."), ապա
սկսել
ReadAllFiles (DirFrom + "\" + DirName);
վերջը.
վերջը.

սկսել
եթե FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0 ապա
սկսել
եթե (faDirectory և SearchRecOtkuda.Attr)> ապա 0
ReadDir (SearchRecOtkuda.Name)
ուրիշ
ReadFile (SearchRecOtkuda.Name);
իսկ FindNext (SearchRecOtkuda) = 0 անել
սկսել
եթե (faDirectory և SearchRecOtkuda.Attr)> ապա 0
ReadDir (SearchRecOtkuda.Name)
ուրիշ
ReadFile (SearchRecOtkuda.Name);
վերջը.
վերջը.
վերջը.



Xtorm   (2001-12-19 11:39) [4]

ՇՆՈՐՀԱԿԱԼՈՒԹՅՈՒՆ Հիմա բոլորն աշխատում են !!!!



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

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

Up









Հիշողություն `0.56 ՄԲ
Ժամանակը `0.159 գ
3-21957
KMM
2001-11-29 15:31
2002.01.08
Ծրագրի ընթացքում անհրաժեշտ է բազմիցս սեղան ստեղծել և ջնջել ...


1-22004
ԽԼԵԿՍԱ
2001-12-17 17:57
2002.01.08
Գայլերը


1-22038
Դիմա ~
2001-12-18 17:53
2002.01.08
Ինչպես փոխանցել հրամանի տողը սկսած ֆայլին:


14-22329
Dima-k17- ը
2001-11-03 15:12
2002.01.08
Դելֆիի ժամանակներն ավարտվե՞լ են:


1-22111
Ո՞վ է արել
2001-12-14 08:12
2002.01.08
Ստեղծեք բացվող ցուցակը StringGride- ում, DBGride- ում փնտրվող տիպի որոնումներից





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