| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

nwc_eminem ©   (2002-07-11 19:18:00) 

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

---

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

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

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

---

Dimedrol   (2002-07-11 23:09:00) [2]

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

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;


---

Billy   (2002-07-11 22:36:00) [3]

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

---

Skier   (2002-07-11 19:20:00) [4]

>nwc_eminem

PChar(String) ?

---

Наверх