Տուն
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]

procedure FindFiles(Path, Mask: string; List: TStrings; IncludeSubDir: Boolean = True);
var
SearchRec: TSearchRec;
FindResult: Integer;
begin
List.BeginUpdate;
try
Path:=IncludeTrailingBackSlash(Path);
FindResult:=FindFirst(Path+"*.*", faAnyFile, SearchRec);
try
while FindResult = 0 do with SearchRec do begin
if (Attr and faDirectory<>0) then begin
if IncludeSubDir and (Name<>"..") and (Name<>".")
then FindFiles(Path+Name, Mask, List, IncludeSubDir);
end else begin
if MatchesMask(Name, Mask) then List.Add(Path+Name);
end;
FindResult:=FindNext(SearchRec);
end;
finally
FindClose(SearchRec);
end;
finally
List.EndUpdate;
end;
end;



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.55 ՄԲ
Ժամանակը `0.021 գ
14-22391
Serg5- ը
2001-11-10 10:29
2002.01.08
Ով չի ծույլ, գնա http://forum.ru-board.com/, դա իսկապես կախված է կամ IP զտիչ, նրանք ինձ թույլ չեն տա:


4-22474
Սլիմ
2001-11-02 11:25
2002.01.08
Չի կարող անել մանգաղ ... Օգնություն!


1-22239
Gayrus
2001-12-17 03:52
2002.01.08
TStatusBar


1-22193
T2
2001-12-14 03:17
2002.01.08
DLL


3-21981
Տիմիկ
2001-12-06 08:22
2002.01.08
Հիմնական դաշտերի եւ IDENTITY- ի մասին





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