Casa
Top.Mail.Ru Yandeks.Metrika
Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

Para baixo

Como? Encontre agências semelhantes


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

Como obter toda a lista de arquivos e pastas digamos em uma unidade com: \
só sem a ajuda de componentes ???



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

Use FindFirst e FindNext



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

procedure FindFiles (Caminho, Máscara: string; Lista: TStrings; IncludeSubDir: Boolean = True); var SearchRec: TSearchRec; FindResult: Integer; começar List.BeginUpdate; tente Caminho: = IncludeTrailingBackSlash (caminho); FindResult: = FindFirst (caminho + "*. *", FaAnyFile, SearchRec); tente enquanto FindResult = 0 faz com SearchRec começar if (Attr e faDirectory <> 0), em seguida, começar if IncludeSubDir e (Name <> "..") e (nome <> ".") então FindFiles (Caminho + Nome, Máscara, Lista, IncludeSubDir); fim mais começar se MatchesMask (Name, Mask) então List.Add (Path + Name); fim; FindResult: = FindNext (SearchRec); fim; finalmente FindClose (SearchRec); fim; finalmente List.EndUpdate; fim; fim;



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

Então você pode ajustar minhas fontes

procedimento ReadAllFiles (DirFrom: string);
var SearchRecOtkuda: TSearchRec;



procedimento ReadFile (FileName: string);
começar
// o que queremos e fazemos com o arquivo
end;

procedimento ReadDir (DirName: string);
começar
// o que queremos e fazemos com o diretório
if (DirName <> ".") e (DirName <> "..") então
começar
ReadAllFiles (DirFrom + "\" + DirName);
end;
end;

começar
se FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0, em seguida,
começar
if (faDirectory e SearchRecOtkuda.Attr)> 0, em seguida,
ReadDir (SearchRecOtkuda.Name)
outro
ReadFile (SearchRecOtkuda.Name);
enquanto FindNext (SearchRecOtkuda) = 0 faz
começar
if (faDirectory e SearchRecOtkuda.Attr)> 0, em seguida,
ReadDir (SearchRecOtkuda.Name)
outro
ReadFile (SearchRecOtkuda.Name);
end;
end;
end;



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

OBRIGADO Todo mundo agora trabalha !!!!



Страницы: 1 filial inteira

Fórum: "Principal";
Arquivo atual: 2002.01.08;
Download: [xml.tar.bz2];

em cima





Memória: 0.55 MB
Hora: 0.029 c
3-21897
Maxb
2001-11-27 14:33
2002.01.08
Cache do DBMS


1-22163
marina
2001-12-20 16:29
2002.01.08
Nomes do mês


14-22390
Ouriço
2001-11-08 12:54
2002.01.08
Ouça Merlin, você já dormiu? Quero dizer, você está relaxando?


1-22122
Mikhalyov Dmitry
2001-12-19 19:38
2002.01.08
Mais uma vez sobre os eventos


3-21940
Serik
2001-12-05 09:15
2002.01.08
Interbase e VisualC ++





afrikaans albanês Arabic armênio azerbaijano basco belarusian Bulgarian catalão Chinês simplificado) Chinês tradicional) croata checo dinamarquês Dutch Inglês estoniano filipino Finnish French
Galego georgiano German grego crioulo haitiano hebraico hindi húngaro islandês Indonesian irlandês Italian Japanese Korean letão lituano macedónio Malay maltês Norwegian
persa polonês Portuguese Romeno Russa sérvio Slovak esloveno Espanhol swahili sueco tailandês turco ucraniano urdu vietnamita galês ídiche bengali bósnio
cebuano esperanto gujarati hausa hmong igbo javanês kannada khmer lao latino maori marata mongol Nepali punjabi somali tâmil telugu yoruba
zulu
Английский francês Alemão Italiano Португальский russo Espanhol