Большой Воронежский Форум
» Программирование>Перемещение файлов в Delphi
Alkonaft 00:22 21.06.2008
Помогите скопировать, а лучше переместить файл из одной папки в другую средствами Delphi. [Ответ]
X0R 00:38 21.06.2008
MoveFile(lpExistingFileName : PAnsiChar, lpNewFileName : PAnsiChar); [Ответ]
Alkonaft 08:43 21.06.2008
А не подскажете как этим пользоваться? [Ответ]
-=leo=- 09:37 21.06.2008
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
Я ужо сам победил.
Но все равно огромное спасибо за участие. [Ответ]
Вверх