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.56 MB
Hora: 0.023 c
3-21966
Z.G.
2001-12-03 12:42
2002.01.08
POR QUE TODAS AS MINHAS PERGUNTAS SÃO RESPONDIDAS Tenho que repetir-me Como pesquisar em um campo Tipo: escrito Tetos e eu preciso encontrar


1-22017
Construtor
2001-12-17 19:45
2002.01.08
Como colocar sua linha nas edições atuais?


3-21900
vão
2001-12-07 11:13
2002.01.08
TString e String


14-22403
Burmistroff
2001-11-11 20:13
2002.01.08
Super Delphi Reference -2. Sua opinião, por favor.


14-22356
Denso
2001-11-06 20:00
2002.01.08
Interferência na programação .... DENTE DENTAL!





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