Работа с памятью правильно или нет?

← →
2ksion © (2005-08-17 15:15) [0]

Вот код проверьте пожайлусто

procedure TForm1.Button4Click(Sender: TObject);
var
p:Pointer;
v,d,g:integer;
s,m: PChar;
begin
s:="проверка";
v:=lstrlen(s);
d:=v+4;
GetMem(p,d);
move(v,p^,4);
move(s,IncPtr(p,4)^,v);
ShowMessage(inttostr(Sizeof(p)));
move(p^,g,4);
ShowMessage(inttostr(g));
move(IncPtr(p,4)^,m,v);
ShowMessage(strpas(m));
FreeMem(p);
end;

function IncPtr(APointer: pointer; AHowMuch: cardinal = 1): pointer;
begin
//тут наращиваеться адресс Pointer
Result := Ptr(cardinal(APointer) + AHowMuch);
end;

← →
Digitman © (2005-08-17 15:17) [1]

> код проверьте пожайлусто

и на какой предмет проверять ?

← →
2ksion © (2005-08-17 15:27) [2]

на предмет правильности с move

← →
Digitman © (2005-08-17 17:01) [3]

смотрим в прототип (system.pas):

procedure Move(const Source; var Dest; Count: Integer);

делаем умозаключения :

1. move(v,p^,4); - неверно : v не является адресом источника (Source)

2. move(s,IncPtr(p,4)^,v); - неверно : s не является адресом источника

а дальше и рассматривать нет резона.

← →
Digitman © (2005-08-17 17:03) [4]

> d:=v+4;

это - какое-то шаманское таинство, мне неведомое.

← →
Digitman © (2005-08-17 17:07) [5]

и вообще - галиматья полная в приведенном коде.

> ShowMessage(inttostr(Sizeof(p)));

Это задумывалось для вывода на экран количества выделенной памяти?

Работа с памятью правильно или нет? Найти похожие ветки