Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c