Копирование через 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;

> Move(f,P^,Size);- здесь не правильно, как исправить
BlockRead
?

А сложно глянуть примеры? как используются BlockRead()?

ЗЫ. Там должен быть обыкнАвенный масифф!!!

вот только просили не ругаться...
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);

Копирование через Pointer Найти похожие ветки