Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Копирование через Pointer [D6]

Алла_И © (2007-08-23 16:55:00)
Уважаемые мастера.
Скажите как через 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;

Vendict (2007-08-24 13:13:00) [1]
вот только просили не ругаться...
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1187936776&n=3

Desdechado © (23.08.07 17:30) [6]
немного уточню.

try
GetMem(p,Size);
BlockRead(f,P^,Size);
BlockWrite(f1,p^,Size);

wp2 (2007-08-23 17:34:00) [2]
А сложно глянуть примеры? как используются BlockRead()?

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

Desdechado (2007-08-23 17:30:00) [3]
> Move(f,P^,Size);- здесь не правильно, как исправить
BlockRead
?

Алла_И (2007-08-23 17:25:00) [4]
f,f1:file;
p:Pointer;

iXT (2007-08-23 17:16:00) [5]
> [0] Алла_И (23.08.07 16:55)

Просветите, что есть Pointer?

ЗЫ Вопрос автору.

iXT (2007-08-23 17:13:00) [6]
> [1] Вася Правильный (23.08.07 16:57)

В сабже :)

(2007-08-23 17:03:00) [7]
Удалено модератором

Вася Правильный (2007-08-23 16:57:00) [8]
а где Р описан?

Наверх

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