Текущий архив: 2007.09.16;
Скачать: CL | DM;
Вниз
Копирование через Pointer Найти похожие ветки
← →
Алла_И (2007-08-23 16:55) [0]Уважаемые мастера.
Скажите как через Pointer скопировать данные.
Пример
procedure TForm1.Button1Click(Sender: TObject);
const
path = "c:\67.psd";
path1 = "c:\67.ps1";
var
Size:Integer;
begin
AssignFile(f,path);
if fileexists(path) then
Reset(f,1)
else
Rewrite(f,1);
Size:=FileSize(f);
AssignFile(f1,path1);
if fileexists(path1) then
Reset(f1,1)
else
Rewrite(f1,1);
try
GetMem(p,Size);
Move(f,P^,Size);- здесь не правильно, как исправить
BlockWrite(f1,p^,Size);
finally
FreeMem(p,Size);
end;
CloseFile(f);
CloseFile(f1);
end;
← →
Вася Правильный (2007-08-23 16:57) [1]а где Р описан?
← →
имя (2007-08-23 17:03) [2]Удалено модератором
← →
iXT © (2007-08-23 17:13) [3]> [1] Вася Правильный (23.08.07 16:57)
В сабже :)
← →
iXT © (2007-08-23 17:16) [4]> [0] Алла_И (23.08.07 16:55)
Просветите, что есть Pointer?
ЗЫ Вопрос автору.
← →
Алла_И (2007-08-23 17:25) [5]f,f1:file;
p:Pointer;
← →
Desdechado © (2007-08-23 17:30) [6]> Move(f,P^,Size);- здесь не правильно, как исправить
BlockRead
?
← →
wp2 © (2007-08-23 17:34) [7]А сложно глянуть примеры? как используются BlockRead()?
ЗЫ. Там должен быть обыкнАвенный масифф!!!
← →
Vendict © (2007-08-24 13:13) [8]вот только просили не ругаться...
http://delphimaster.net/view/15-1187936776/
Desdechado © (23.08.07 17:30) [6]
немного уточню.
try
GetMem(p,Size);
BlockRead(f,P^,Size);
BlockWrite(f1,p^,Size);
Страницы: 1 вся ветка
Текущий архив: 2007.09.16;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.028 c
