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

← →
nwc_eminem (2002-07-11 19:18) [0]

Как копировать файл, если его имя заданно переменной типа string? В функции CopyFile надо, чтобы имя файла было PChar.
Или как можно перевести String -> PChar?

← →
Skier (2002-07-11 19:20) [1]

>nwc_eminem

PChar(String) ?

← →
Billy (2002-07-11 22:36) [2]

А можно еще так извратиться:
var s:string;
...
CopyFile(...,@s[1],...);

← →
Dimedrol (2002-07-11 23:09) [3]

Не парься, братан ! ;-)
procedure TForm1.CopyItem(const SourceFile, DstFile : string); var s,d : TFileStream; begin Screen.Cursor:=crHourGlass; s:=TFileStream.Create(SourceFile, fmOpenRead); d:=TFileStream.Create(DstFile, fmOpenWrite or fmCreate); d.CopyFrom(s, s.size); d.free; s.free; Screen.Cursor:=crDefault; end;

← →
Юрий Зотов (2002-07-12 00:50) [4]

> Dimedrol © (11.07.02 23:09)

Не парься, братан ! ;-)

function FileCopy(Source, Target: string; Rewrite: boolean): boolean;
begin
Result := CopyFile(PChar(Source), PChar(Target), not Rewrite)
end;

Пожалуй, это будет попроще, побыстрее, поэкономнее в смысле памяти и побогаче по возможностям, isn"t it?

А главное, без изобретения велосипедов.

Копирование файла Найти похожие ветки