Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

Все файлы в папке   Найти похожие ветки 

 
Медвежонок Пятачок ©   (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;
Скачать: CL | DM;

Наверх




Память: 0.54 MB
Время: 0.053 c
15-1345632073
Rouse_
2012-08-22 14:41
2013.03.22
Семинар "RAD Studio XE3"


15-1333823439
antonn
2012-04-07 22:30
2013.03.22
Сколько стоит такой специалист


2-1331559417
aaas545
2012-03-12 17:36
2013.03.22
Update в SQL запросе пустых записей.


15-1334294284
vajo
2012-04-13 09:18
2013.03.22
Маркировка HDD Seagate.


2-1339503702
kurolesov
2012-06-12 16:21
2013.03.22
Работа с TBitmap. Как быстрее?