Alkonaft, ты не можешь перевести "ExistingFileName" и "NewFileName"? тогда учи английский. программирование, а тем более на паскале, требует школьного уровня знания английского языка. google.com тебе в помощь.
[Ответ]
Alkonaft 12:00 21.06.2008
Дык про "ExistingFileName" и "NewFileName" - эт ежу понятно.
Просто если я правильно понял, при нажатии на кнопку с таким обработчиком:
procedure TForm1.Button4Click(Sender: TObject);
begin
MoveFile('d:\Фото\Image_0001.JPG','d:\Фото1\Image_ 0001.jpg');
end;
указанный файл, должен переметнуться в "d:\Фото1\", или где?
Однако фик получается.
[Ответ]
Alkonaft 18:31 21.06.2008
Тада может кто из владеющих английским в совершенствии объяснит, почему функция CopyFileTo в коде:
procedure TForm1.Button4Click(Sender: TObject);
Var
Ist, Korz: string;
begin
FindFirst(ShellIst.Path+'\*.*',faAnyFile+not(faDir ectory),FN);
Ist:=ShellIst.Path+'\'+FN.Name;
korz:=ShellKorz.Path+'\';
CopyFileTo('D:\Фотки\Image_0001.jpg','D:\Фотки1\Im age_0001.jpg');
end;
работает, а если вместо 'D:\Фотки\Image_0001.jpg' и'D:\Фотки1\Image_0001.jpg' пишу Ist и Korz, в которых хранятся те же строки, то Фик Вам???
И как Это можно победить????
[Ответ]
SmanxX1 20:32 21.06.2008
Сообщение от Alkonaft:
Тада может кто из владеющих английским в совершенствии объяснит, почему функция CopyFileTo в коде:
procedure TForm1.Button4Click(Sender: TObject);
Var
Ist, Korz: string;
begin
FindFirst(ShellIst.Path+'\*.*',faAnyFile+not(faDir ectory),FN);
Ist:=ShellIst.Path+'\'+FN.Name;
korz:=ShellKorz.Path+'\';
CopyFileTo('D:\Фотки\Image_0001.jpg','D:\Фотки1\Im age_0001.jpg');
end;
работает, а если вместо 'D:\Фотки\Image_0001.jpg' и'D:\Фотки1\Image_0001.jpg' пишу Ist и Korz, в которых хранятся те же строки, то Фик Вам???
И как Это можно победить????
Да потому что CopyFileTo принимает Pchar а не string.
Нужно писать так:
CopyFileTo(Pchar(Ist),Pchar(korz));
[Ответ]
Alkonaft 20:38 21.06.2008
Я ужо сам победил.
Но все равно огромное спасибо за участие.
[Ответ]