[ined]

Есть ли в Delphi функция которая узнаёт была ли распределена память для PByte ?

[Aristarh Dark]

Использовать Assigned (в хелпе довольно подробно расписано), только нужно внимательно относится к переменным и не забывать про Буратину и яблоки

[ined]

Сообщение от Aristarh Dark

Буратину и яблоки

Вот по этому мне нужно знать сколько же всё таки яблок у буратино Спасибо. Я стараюсь не забывать чистить память от не нужного.

[ined]

эх не получилось, что я хотел.

Код:

procedure BoolMem(var p:pointer; NewSize:cardinal);
begin
  if Assigned(p) then FreeMem(p,MSize);
  GetMem(p,NewSize);
  MSize:=NewSize;
end;

MSize - это предыдущая длинна.
Условие таково, что бы при первичном входе в эту процедуру не срабатывал FreeMem.
Что можете предложить по этому вопросу?

[M.A.D.M.A.N.]

а как же VirtualQuery?
Вроде должно помочь в твоей ситуации.
http://www.podgoretsky.com/ftp/Docs/...tualQuery.html

[Aristarh Dark]

Для первого входа:

Код:

p:=nil;
MSize:=15;
BoolMem(p,MSize);

распределит 15 байт памяти и упасть не должен.