| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

Dmitriy O... ©   (2007-11-06 10:34:00) 

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

---

Kolan   (2007-11-12 17:21:00) [1]

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

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

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

---

Kolan   (2007-11-12 14:13:00) [2]

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

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

---

Dmitriy O...   (2007-11-12 12:54:00) [3]

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

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

---

Anatoly Podgoretsky   (2007-11-06 15:33:00) [4]

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

CB_DIR

---

Reindeer Moss Eater   (2007-11-06 11:41:00) [5]

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));

---

Kolan   (2007-11-06 10:45:00) [6]

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 '…') 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);

---

Наверх