Копирование файлов Delphi

[brednew]

Доброго времени суток уважаемые программисты.
У меня такая проблема:
есть эдит, из него берется путь к файлу;
нужно скопировать этот файл в другую папку, которая является подкаталогом в нашей программе.
вот примерный код

procedure TForm3.Button61Click(Sender: TObject);
begin
i:=edit1.text;
CopyFile(i, '\Дополнительно\images', true);
end;

не принимает i. она в строковом типе

[Stilet]

не принимает i. она в строковом типе

Господи, когда уже форумчане научатся хорошим манерам?

"Не принимает" что это означает? Нам что ли догадываться?
CopyFile(PChar(i)... пиши.

[brednew]

доброго времени суток еще раз всем! я сделал как вы мне подсказали, но теперь такая проблема, копирование не происходит. что я делаю не так? подскажите плиз кто знает.

i:=edit1.text;
CopyFile(PChar(i), '\Дополнительно\images\', true);

желательно чтобы файл копировался с таким же именем

[Аватар]

1-ый и 2-ой параметры имя файла с каталогом

[brednew]

из Edit1 берется путь файла вместе с его названием
мне необходимо копировать файл именно в папку '\Дополнительно\images\' которая является подкаталогом нашей программы но что нужно сделать? имя файла скопировать и поставить его после '\Дополнительно\images\' или как извините я не догоняю тут
или необходимо указать путь конечного файла полностью?

[Serge_Bliznykov]

или необходимо указать путь конечного файла полностью?

точно так.


так, навскидку.. попробуйте

procedure TForm3.Button61Click(Sender: TObject);
var s : string;
begin
  s:=edit1.text;
  CopyFile(PChar(s), Pchar(ExtractFilePath(s) + 'Дополнительно\images\'+ExtractFileName(s)), true);
end;

[brednew]

а можно ли сгенерировать как нибудь путь нашей проги?

[Serge_Bliznykov]

а можно ли сгенерировать как нибудь путь нашей проги?

да.

пробуйте так:

procedure TForm3.Button61Click(Sender: TObject);
var s : string;
begin
  s:=edit1.text;
  CopyFile(PChar(s), Pchar(ExtractFilePath(Application.ExeName) + 'Дополнительно\images\'+ExtractFileName(s)), true);
end;

так?