Текущий архив: 2002.07.25;
Скачать: CL | DM;

Вниз

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

← →
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?

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

---

Страницы: 1 вся ветка

Текущий архив: 2002.07.25;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.015 c