CopyFile - Не копирует файлы

@delphiuse · Регистрация: 26.03.2019

Author24 — интернет-сервис помощи студентам

Delphi

var
 v:string;
begin
if opendialog1.Execute then
begin
      CopyFile(PChar(opendialog1.files),PChar(v),false);
end;

Вот такой код, компилируется но не работает
Ответа не нашёл.

@Puporev · 26.03.2019, 13:12

А что такое v и почему ей не присвоено значение?

@delphiuse · 26.03.2019, 13:19 **[ТС]**

Delphi

1 2	if dirdialog1.execute then v:=pchar(dirdialog1.DirPath);

вот присваевается
V - Переменная с типом "string"

@Puporev · 26.03.2019, 13:21

Вот у меня так копирует.

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var s1,s2:string;
begin
if opendialog1.Execute then
s1:=opendialog1.filename;
if savedialog1.Execute then
s2:=savedialog1.filename;
CopyFile(PChar(s1),PChar(s2),false);
end;

@delphiuse · 26.03.2019, 13:32 **[ТС]**

Но есть проблема
Мне надо без savedialog и всяких лишних объектов

@Puporev · 26.03.2019, 14:02

Ну например так

Delphi

1
2
3

if opendialog1.Execute then
CopyFile(PChar(opendialog1.filename),
PChar('D:\Лабы\'+ExtractFileName(opendialog1.filename)),false);

@D1973 · 26.03.2019, 17:44

Сообщение от delphiuse

V - Переменная с типом "string"

Сообщение от delphiuse

v:=pchar(dirdialog1.DirPath);

delphiuse, Вам не кажется это противоречивым?

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	26.03.2019, 13:12	2
	А что такое v и почему ей не присвоено значение? 0

@delphiuse 0 / 0 / 0 Регистрация: 26.03.2019 Сообщений: 4
	26.03.2019, 13:32 [ТС]	5
	Но есть проблема Мне надо без savedialog и всяких лишних объектов 0

@D1973 Модератор 9256 / 6034 / 2379 Регистрация: 21.01.2014 Сообщений: 25,795 Записей в блоге: 3
	26.03.2019, 17:44	7
	Сообщение от delphiuse V - Переменная с типом "string" Сообщение от delphiuse v:=pchar(dirdialog1.DirPath); delphiuse, Вам не кажется это противоречивым? 0