Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.009 c
1-81219
Vlad Schekunov
2002-07-14 06:05
2002.07.25
Разность между датами


1-81368
Nick 007
2002-07-14 00:50
2002.07.25
Командная строка...


1-81267
programmerts
2002-07-10 20:12
2002.07.25
Как написать программу без формы.


7-81508
cdaDmitriy
2002-05-01 14:45
2002.07.25
КАК можно определить Изменение Системного времени


3-81179
Nebula
2002-07-04 16:41
2002.07.25
IBQuery.Filter