Главная страница
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.048 c
2-1331910674
leklerk
2012-03-16 19:11
2013.03.22
Доступ к данным через TDBGrid и TADODataSet


4-1259658224
sniknik
2009-12-01 12:03
2013.03.22
Получить список групп текущего юзера/общий


15-1337421742
>|<
2012-05-19 14:02
2013.03.22
Parrot AR.Drone


15-1340312237
Германн
2012-06-22 00:57
2013.03.22
Подскажите есть ли в каком-нибудь стандартном шрифте в WinXP


2-1336378616
gltrinix
2012-05-07 12:16
2013.03.22
Настройки компилятора