Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

Вниз

Як? Знайти схожі гілки


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);
починати
// що хочем то і робимо з файлом
end;

procedure ReadDir (DirName: string);
починати
// що хочем то і робимо з директором
if (DirName <> ".") and (DirName <> "..") then
починати
ReadAllFiles (DirFrom + "\" + DirName);
end;
end;

починати
if FindFirst (DirFrom + "\ *. *", faAnyFile, SearchRecOtkuda) = 0 then
починати
if (faDirectory and SearchRecOtkuda.Attr)> 0 then
ReadDir (SearchRecOtkuda.Name)
ще
ReadFile (SearchRecOtkuda.Name);
while FindNext (SearchRecOtkuda) = 0 do
починати
if (faDirectory and SearchRecOtkuda.Attr)> 0 then
ReadDir (SearchRecOtkuda.Name)
ще
ReadFile (SearchRecOtkuda.Name);
end;
end;
end;



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

СПАСИБІ Всім все тепер працює !!!!



сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.01.08;
Завантажити: [xml.tar.bz2];

наверх









Пам'ять: 0.56 MB
Час: 0.067 c
14-22409
Vadim
2001-11-12 13:56
2002.01.08
А може, не будемо бити один одного по руках?


14-22356
дрімучий
2001-11-06 20:00
2002.01.08
Перешкоди в програмуванні .... Зубний біль!


14-22340
Yuraz
2001-11-06 10:09
2002.01.08
Люди, підкажіть де Cookie в W2K зберігаються, і як їх грохнути можна


1-22109
avr555
2001-12-19 17:17
2002.01.08
ComboBox в Grid


1-22015
мисливець
2001-12-17 13:17
2002.01.08
Картинку на принтер





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська