Форум: "Начинающим";
Текущий архив: 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.082 c