Форум: "Основная";
Текущий архив: 2002.07.25;
Скачать: [xml.tar.bz2];
Вниз
Копирование файла Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
