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]

Как получить весь список файлов и папок допустим на диске с:\
только без помощи компонентов???



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]

Вот и моих исходников можешь подстроить под себя

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



procedure ReadFile(FileName : string);
começar
// что хочем то и делаем с файлом
end;

procedure ReadDir(DirName : string);
começar
// что хочем то и делаем с директорием
if (DirName <> ".") and (DirName <> "..") then
começar
ReadAllFiles(DirFrom+"\"+DirName);
end;
end;

começar
if FindFirst(DirFrom+"\*.*",faAnyFile,SearchRecOtkuda) = 0 then
começar
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
outro
ReadFile(SearchRecOtkuda.Name);
while FindNext(SearchRecOtkuda) = 0 do
começar
if (faDirectory and SearchRecOtkuda.Attr) > 0 then
ReadDir(SearchRecOtkuda.Name)
outro
ReadFile(SearchRecOtkuda.Name);
end;
end;
end;



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

СПАСИБО Всем все теперь работает!!!!



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

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

em cima









Memória: 0.82 MB
Hora: 0.026 c
14-22391
Serg5
2001-11-10 10:29
2002.01.08
Quem não é preguiçoso, vá para http://forum.ru-board.com/, ele realmente trava, ou filtragem de IP, eles não me deixam.


3-21991
perov
2001-12-06 09:01
2002.01.08
Codificação de mensagem de erro do Oracle


3-21929
@ Andrew
2001-12-04 11:38
2002.01.08
OLÁ A TODOS! Estou fazendo uma revista. De onde vem a tarefa ....


1-22148
Delphimun
2001-12-20 12:10
2002.01.08
Como enviar uma mensagem para o sistema que uma tecla é pressionada?


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





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