Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Вниз

Как считать имена файлов?   Найти похожие ветки 

← →
MBo   (2002-01-23 15:54) [3]

вообще-то работает
var sr:tsearchrec;
begin
if FindFirst("e:\*.txt", faanyfile, sr) = 0 then
begin
memo1.lines.add(sr.name);
while FindNext(sr) = 0 do
begin
memo1.lines.add(sr.name);
end;
FindClose(sr);
end;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c