Дикая проблема с файлами

Модераторы: Duncon, Naeel Maqsudov, Хыиуду, Игорь Акопян

Ответить
murzilka
Сообщения: 2
Зарегистрирован: 11 янв 2005, 00:03

11 янв 2005, 00:39

Вот код моей проги на паскале, которая должна переименовать туеву хучу jpeg'oв
по порядку 1.jpeg...N.jpeg-но почемуто не работает...пишет file access denied
Может что-то не правильно.Подскажите, буду очень благодарен!


uses WinDos,Crt;

var
DirInfo: TSearchRec;
pdr,name:string;
i:integer;
f:file;

begin
clrscr;
write('Enter the path for dir:');
read(pdr);
chdir (pdr);
FindFirst('*.jpeg', faarchive, DirInfo);
while DosError = 0 do
begin
i:=i+1;
{Writeln(pdr,'\',DirInfo.Name);}
str(i,name);
name:=name+'.jpeg';
assign(f,dirinfo.name);
rename(f,name);
writeln(dirinfo.name,' -->> ',name);
FindNext(DirInfo);
end;
writeln('Numbers of files in ',pdr,' -->',i);
readln;
readln;
end.

Заранее спасибо.
Аватара пользователя
AiK
Сообщения: 2271
Зарегистрирован: 13 фев 2004, 18:14
Откуда: СПб
Контактная информация:

11 янв 2005, 02:41

murzilka, уважаемый! Вы не инициализируете переменные. Это раз.
И не закрываете файл, к которорому делали assign. Это два.
Даже самый дурацкий замысел можно воплотить мастерски
Ответить