Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi для начинающих

Войти
Регистрация
Восстановить пароль
 
andrey1
#1

Почему нет продолжения поиска файлов? - Delphi

02.02.2009, 15:24. Просмотров 542. Ответов 1
Метки нет (Все метки)

Delphi
1
2
3
4
5
6
7
repeat
 
FindFirst('*.*',faAnyFile,sr);
FindNext(sr);
showmessage(sr.name); //только (..)
 
until FindNext(sr)=0;
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.02.2009, 15:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Почему нет продолжения поиска файлов? (Delphi):

Программа поиска файлов - Delphi
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ...

Процедура поиска файлов - Delphi
Здравствуйте, есть процедура поиска файлов procedure FindIt(const aDir : String; aLog : TStrings); const N = 4; ArrExt :...

Программа для поиска файлов - Delphi
Помогите доработать или переписать часть кода. При щелчке первой кнопки пользователь выбирает директорию поиска. При щелчке второй...

Почему нет AV? - Delphi
Почему нет ошибки? Type /// <summary> /// Поток для нумирации строк /// Обращается к одной ячейки памяти таблицы ...

Программа для поиска файлов на компе - Delphi
Привет! Делаю курсак на делфи , нужно сделать программу , которая бы искала файлы по их разрешению (.exe , .avi , .mp3 , .doc и т.д. ) и...

Оптимизировать программу поиска и копирования файлов - Delphi
Здравствуйте. Помогите пожалуйста дополнить программу поиска и копирования файлов. Моя программа ищет и копирует все файлы из папки. ...

1
andrey1
02.02.2009, 16:59 #2
Вопрос закрыт !!!!!!!!
Извиняюсь. Ошибка в вопросе, должно быть Until FindNext(sr)<>0
Попробывал так:
Delphi
1
2
3
4
5
6
 begin
   FindFirst('*.*',faAnyFile,sr);
  repeat
     showmessage(sr.name);
  until FindNext(sr)<>0;
 end;
получилось !!!
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.02.2009, 16:59
Привет! Вот еще темы с ответами:

Код поиска находит только половину всех файлов - Delphi
имеется вот такой код: procedure TForm13.DirScan(dir: string); var rt:TsearchRec; i:integer; begin if...

Почему нет файла Proxies.dcu из Delphi 6 - Delphi
И почему у меня его нет :(

почему в Delphi XE3 лайт нет форматирования? - Delphi
почему в Delphi XE3 лайт нет форматирования? или я плохо смотрел Добавлено через 19 секунд Ссылка удалена модератором] ...

Процедура поиска файлов забивает целевой массив одним и тем же файлом - Delphi
Здравствуйте. У меня есть код, который должен искать файлы определенного типа: Prey : array of String; procedure...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru