Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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

---

← →
Kolan ©   (2007-11-12 14:13) [5]

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

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

---

← →
Kolan ©   (2007-11-12 17:21) [6]

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

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

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

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.041 c