VPF::Подскажите как сделать цикл - Форум программистов

Serhik_z

Дата 12.4.2005, 12:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 108
Регистрация: 4.12.2004

Репутация: нет
Всего: нет

Подскажите как сделать цикл переименования файлов.
Так переименовывается только первый файл в папке.

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  ScanDir(''); // Директория вывода
end; 

procedure TForm1.ScanDir(Dir: string);
var
SearchRec: TSearchRec;
F: File;
begin 
 if Dir<>'' then if Dir[length(Dir)]<>'\' then Dir:=Dir+'\';
  if FindFirst(Dir+'*.jpg', faAnyFile, SearchRec)=0 then
  repeat
  if (SearchRec.name='.') or (SearchRec.name='..') then continue;  
  if (SearchRec.Attr and faDirectory)<>0 then  
  ScanDir(Dir+SearchRec.name) //we found Directory: "Dir+SearchRec.name"
else
  AssignFile(F,SearchRec.name);
  Rename(F,'0001.jpg') until FindNext(SearchRec)<>0;
 FindClose(SearchRec);
end;

!	НаХ плодить дубликаты: http://forum.vingrad.ru/index.php?showtopi...533;entry375111 PS: Тема закрыта!

Snowy

Дата 12.4.2005, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Делай только FindFirst.
Поскольку ты переименовываешь файл, то ты пересестанешь находить файлы, когда они закончатся.
FindNext тут тебе не помощник, т.к. ты модифицируешь FAT.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »