Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

Работа с фалами   Найти похожие ветки 

 
новенький в Делфи   (2002-03-23 17:25) [0]

как мне вывести в Memo все файлы, дирректории из выбранного каталога?


 
SDS ©   (2002-03-23 20:00) [1]

Вот функция для получения файлов в каталоге,
Ниже пример ее использования для получения всех файлов и каталогов в корневом каталоге диска D:

function GetFilesListInDir(FilesPath: string; var FindedFiles: TStringList): boolean;
var
hFileFind: THandle;
fData: TWin32FindDataA;
pcFilePath: PChar;
Buffer: array[1..MAX_PATH] of char;
ind: integer;
begin
Result:=False;
if FindedFiles=nil then Exit;
FindedFiles.Clear;
pcFilePath:=@Buffer;
FilesPath := FilesPath+"*.*";
StrPCopy(pcFilePath,FilesPath);
hFileFind:=FindFirstFile(pcFilePath,fData);
if hFileFind<>INVALID_HANDLE_VALUE then
begin
Result:=True;
repeat
FindedFiles.Add(fData.cFileName);
until FindNextFile(hFileFind,fData)=False;
ind:=FindedFiles.IndexOf(".");
if ind <> -1 then
FindedFiles.Delete(ind);
ind:=FindedFiles.IndexOf("..");
if ind <> -1 then
FindedFiles.Delete(ind);
end;
end;



Пример использования

procedure TForm1.Button1Click(Sender: TObject);
var
tmpList : TStringList;
begin
tmpList := TStringList.Create;
GetFilesListInDir("D:\", tmpList);
Memo1.Lines.Assign(tmpList);
tmpList.Free;
end;


 
новенький в Делфи   (2002-03-23 21:04) [2]

Спасибо



Страницы: 1 вся ветка

Текущий архив: 2002.04.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
3-9371
Sparky
2002-03-12 05:28
2002.04.04
Кто-нибудь знает компоненты типа DecisionCube и где их можно найти?


1-9439
Sound
2002-03-24 18:05
2002.04.04
НУ НЕ МОГУ ПОНЯТЬ!!!!


3-9362
Ghostlady
2002-03-11 16:44
2002.04.04
Падает база данных без видимых причин


3-9359
Turalyon
2002-03-11 12:08
2002.04.04
Триггеры и генераторы в IB6


3-9428
archer
2002-03-06 10:30
2002.04.04
Ошибка при работе с Oracle через ADO