Freemem Опции

[ангел]

Ошибка у меня возникает при вызове этой процедуры...
Либо указатель пустой или число освобождамых байтов выходит за границы кучи ???
вот код:

procedure Push(E:ElementType;var S:Stack);
var
P:pStackElem;
begin
	 P:=new(pStackElem);
	 GetMem(P^.Elem,SizeOf(ElementType));
	 Move(E,P^.Elem,SizeOf(ElementType));
	 P^.Next:=S.Top;
	 S.Top:=P;
	 S.Size:=S.Size+Sizeof(ElementType)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:ElementType);
var top:pStackElem;
begin
	 if S.Top<>nil then
	 begin
	 Move(S.Top^.Elem,E,SizeOf(ElementType));
	 top:=S.Top^.Next;
		 FreeMem(S.Top^.Elem,SizeOf(ElementType));{Вот здесь и возникает ОШИБКА!!!}
	 dispose(S.Top);
	 S.Top:=top;
	 S.Size:=S.Size-Sizeof(ElementType)-SizeOf(pStackElem)*2-SizeOf(Pointer);
	 end
end;

[Lapp]

Ты в операторе Move используешь указатель вместо самой величины. Этим самым ты портишь пойнтер.

procedure Push(E:Element;var S:Stack);
var
  P:pStackElem;
begin
  P:=new(pStackElem);
  GetMem(P^.Elem,SizeOf(Element));
  Move(E,P^.Elem^,SizeOf(Element));  {было Move(E,P^.Elem,SizeOf(ElementType));}
  P^.Next:=S.Top;
  S.Top:=P;
  S.Size:=S.Size+Sizeof(Element)+SizeOf(pStackElem)*2+SizeOf(Pointer);
end;

procedure Pop(S:Stack;var E:Element);
var
  top:pStackElem;
begin
  if S.Top<>nil then begin
    Move(S.Top^.Elem^,E,SizeOf(Element));  {было Move(S.Top^.Elem,E,SizeOf(Element));} 
    top:=S.Top^.Next;
    FreeMem(S.Top^.Elem,SizeOf(Element));{Вот здесь и возникает ОШИБКА!!!}
    dispose(S.Top);
    S.Top:=top;
    S.Size:=S.Size-Sizeof(Element)-SizeOf(pStackElem)*2-SizeOf(Pointer);
  end
end;

[int64]

Ты в операторе Move используешь указатель вместо самой величины. Этим самым ты портишь пойнтер.

ужас! какая глупая ошибка моя ... невнимательность (((
не таким образом я "разжевал" параметры процедуры Move )))
большое спасибо вам, lapp!

[Lapp]

ужас! какая глупая ошибка моя ... невнимательность (((

бывает..
Хочешь совет? Если совсем ничего не получается долгое время, то начинай убирать из программы все "несущественное". Либо на некотором этапе ошибка пропадет (как сейчас), либо ты упростишь себе задачу, освободившись от шелухи.
Успехов!