Как загрузить список всех текстовых файлов в комбобокс из какой

← →
Dmitriy O... (2007-11-06 10:34) [0]

Как загрузить список всех текстовых файлов в комбобокс из какой либо директории. Надо загрузить имена всех текстовых файлов в список комбобокса из определенной папки как это сделать ?

← →
Kolan © (2007-11-06 10:45) [1]

Dmitriy O
С вышей супер автошемой и такие вопросы :)

Вот:

procedure ScanDirectory(Directory: string; ScanSubFolders: Boolean; Strings: TStrings; Extension: string; FileName: string; RecursionCount: Integer); var CurrentFile: TSearchRec; begin Directory := IncludeTrailingPathDelimiter(Directory); if Assigned(Strings) and DirectoryExists(Directory) then begin try if FindFirst(Directory + "*.*", faAnyFile, CurrentFile) = 0 then begin repeat if (CurrentFile.Name <> ".") and (CurrentFile.Name <> "&#133") then begin if ((CurrentFile.Attr and faDirectory) <> 0) and ScanSubFolders then ScanDirectory(Directory+CurrentFile.Name, ScanSubFolders, Strings, Extension, FileName, RecursionCount + 1); if (Extension = "") or (ExtractFileExt(CurrentFile.Name) = Extension) then if (FileName = "") or (FileName = CurrentFile.Name) then Strings.Add(Directory+CurrentFile.Name) end; until FindNext(CurrentFile) <> 0; end; finally FindClose(CurrentFile); end; end; end;

Как загрузить список всех текстовых файлов в комбобокс из какой либо директории. Надо загрузить имена всех текстовых файлов в список комбобокса из определенной папки как это сделать ?
ScanDirectory("C:/", True, Strings, ".txt", "", 0);

← →
Reindeer Moss Eater © (2007-11-06 11:41) [2]

D := "C:\*.txt";
SendMessage(Combobox1.Handle,
LB_DIR,
DDL_ARCHIVE +
DDL_DIRECTORY +
DDL_DRIVES +
DDL_EXCLUSIVE +
DDL_HIDDEN +
DDL_READONLY +
DDL_READWRITE +
DDL_SYSTEM,
Integer(D));

← →
Anatoly Podgoretsky © (2007-11-06 15:33) [3]

> Dmitriy O... (06.11.2007 10:34:00) [0]

CB_DIR

← →
Dmitriy O... (2007-11-12 12:54) [4]

Kolan © (06.11.07 10:45) [1]
Спасибо за код правда у мя почемуто он сработал если условие
if (CurrentFile.Name <> ".") and (CurrentFile.Name <> "_") then

Дополнить if (CurrentFile.Name <> ".") and (CurrentFile.Name <> "_") and (CurrentFile.Name <> "..") then

> Спасибо за код правда у мя почемуто он сработал если условие

Просто ...(три точки) превратились в …(троеточие)

> Просто ...(три точки)

Поправка, не три, а две точки(..)

Вот так:
if (CurrentFile.Name <> ".") and (CurrentFile.Name <> "..") then

Как загрузить список всех текстовых файлов в комбобокс из какой Найти похожие ветки