путь к файлу

[ggod]

Сообщение от Аватар

CopyFile или с использованием MemoryStream. И еще есть варианты

ок спасибо

[ggod]

файл не копируется что написано не так?

procedure TForm1.Button1Click(Sender: TObject);
var
  openDialog : TOpenDialog;
   begin
   openDialog := TOpenDialog.Create(self);
   openDialog.InitialDir := GetCurrentDir;
   openDialog.Options := [ofFileMustExist];
   openDialog.Filter := 'Delphi project files|*.dpr|Delphi pascal files|*.pas';
   openDialog.FilterIndex := 2;
   if openDialog.Execute
   then
      ShowMessage('файлвыбран');
   else
    ShowMessage('файл не выбран');
   openDialog.Free;
 end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 CopyFile(PChar(opendialog.FileName),(PChar('C:\Program Files\1'+opendialog.FileName)),true);
end;

end.

нужно было удалить 3 и 15 строки добавить opendialog на форму и вместо

CopyFile(PChar(opendialog.FileName),(PChar('C:\Program Files\1'+opendialog.FileName)),true);

написать

CopyFile(PChar(opendialog.FileName),(PChar('C:\Program Files\1\'+extractfilename(opendialog.FileName))),true);

[vovk]

1)openDialog объявлен ка локальная переменная в процедуре, в ней он создается, в ней же вы его и уничтожаете.
Поэтому обратится к нему из другой процедуры не получится.

положите openDialog на форму и просто его вызывайте.

2)openDialog.FileName содержит полный путь к файлу поэтому тут

'C:\Program Files\1'+opendialog.FileName

нужно будет извлечь имя файла из полного пути к примеру так

'C:\Program Files\1\'+ExtractFileName(opendialog.FileName)

и если 1 в пути это директория, а не то что вы хотите добавить к имени файла не забыть поставить слеш после 1

[ggod]

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

1)openDialog объявлен ка локальная переменная в процедуре, в ней он создается, в ней же вы его и уничтожаете.
Поэтому обратится к нему из другой процедуры не получится.

положите openDialog на форму и просто его вызывайте.

2)openDialog.FileName содержит полный путь к файлу поэтому тут

'C:\Program Files\1'+opendialog.FileName

нужно будет извлечь имя файла из полного пути к примеру так

'C:\Program Files\1\'+ExtractFileName(opendialog.FileName)

и если 1 в пути это директория, а не то что вы хотите добавить к имени файла не забыть поставить слеш после 1

спасибо за помощь

[ggod]

спасибо разобрался