Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
ВнизВсе файлы в папке Найти похожие ветки
← →
Медвежонок Пятачок © (2012-05-26 18:19) [40]можно даже одной.
← →
Германн © (2012-05-26 18:20) [41]
> Можно эти три строчки в студию?if FindFirst(Edit1.Text, FileAttrs, sr) = 0 then
repeat ... until FindNext(sr) <> 0;
FindClose(sr);
← →
Юрий Зотов © (2012-05-26 20:20) [42]> Германн © (26.05.12 18:20) [41]
if FindFirst ... then
try
repeat
...
until FindNext ...
finally
FindClose
end
Иначе есть шанс словить утечку ресурсов.
← →
Германн © (2012-05-26 20:33) [43]
> Юрий Зотов © (26.05.12 20:20) [42]
Согласен.
← →
DVM © (2012-05-26 20:58) [44]Для новых версий Delphi более удобно:
uses System.IOUtils;
...
TDirectory.GetFiles()
Страницы: 1 2 вся ветка
Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Память: 0.51 MB
Время: 0.083 c