|
Вопрос # 6 491/ вопрос открыт / |
|
Приветствую, уважаемые эксперты!
Суть программы : Пользователь указывает папку в которой по нажатию кнопки все файлы с N расширением ( jpeg , png , jpg) переименовываются в 1.n , 2.n , 3.n .... X.n . Проблема в том что если файлов больше чем 32 , то программа заново начинает перебирать уже переименованные файлы .
Как обойти эту проблему ?
Приложение: Переключить в обычный режим- {{code}}
- procedure TForm1.Button1Click(Sender: TObject);
- var
- a:TSearchRec;
- i:byte;
- path:string;
- newName:string;
- mask:string;
- begin
- if RadioButton1.Checked=true then
- mask:='.jpeg';
- if RadioButton2.Checked=true then
- mask:='.png';
- if RadioButton3.Checked=True then
- mask:='.jpg';
- i:=2;
- path:=s+'\';
- if FindFirst(path+'*'+mask,faAnyFile ,a)=0 then
- begin
- RenameFile(path+a.Name,path+'1'+mask);
- while FindNext(a)=0 do
- begin
- newName:=path+inttostr(i)+mask;
- RenameFile(path+a.Name,newName);
- i:=i+1;
- end;
- FindClose(a);
- i:=0;
- end;
-
- end;
-
-
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- SelectDirectory('Âûáåðèòå
êàòàëîã','C:\',s);
- end;
- {{/code}}
 |
Вопрос задал: Кабиров Роман (статус: Посетитель)
Вопрос отправлен: 8 ноября 2013, 19:45
Состояние вопроса: открыт, ответов: 0.
|
Мини-форум вопроса
Всего сообщений: 1; последнее сообщение — 8 ноября 2013, 22:47; участников в обсуждении: 1.
|
|
Кабиров Роман (статус: Посетитель), 8 ноября 2013, 22:47 [#1]:
Сам нашел ответ , сначала заношу все файлы в массив - а после переименовываю =)
Легко осваиваю тяжелое - лажаю на самом легком ! =)
|
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
