Утечка памяти

[Juffin]

Есть кусок кода:

type TPhysPoint=class
       public
       X,Y:real;
       procedure SetPoint(inX,inY:real);
       end;

type TPhysRect=class
       public
       P1:TPhysPoint;
       Width,Height:integer;
       end;

function SetPoint(X,Y:real):TPhysPoint;

procedure Test(P:TPhysPoint);

implementation

procedure TPhysPoint.SetPoint(inX,inY:real);
begin
X:=inX;
Y:=inY;
end;

function SetPoint(X,Y:real):TPhysPoint;
var p:TPhysPoint;
begin
p:=TPhysPoint.Create;
p.SetPoint(X,Y);
SetPoint:=p;
end;

при таком вызове фенкции Test:

Test(SetPoint(2,3));

происходит утечка памяти (становится заметной в диспетчере задач после выполнения этой процедуры несколько тысяч раз). Как избежать этого, оставив функцию SetPoint():TPhysPoint?

[BOBAH13]

procedure Test(P:TPhysPoint);

Дальше догадайся сам что написано? По идеи, вы не удаляете TPhysPoint полученный от вызова SetPoint, но это уже мои телепатические возможности.

[Sanprof]

p:=TPhysPoint.Create;

а где

p.Free;

?????

[GunSmoker]

Ищем утечки памяти (часть 2).

Как несложно сообразить, если в программе есть действие по выделению ресурса (в вашем случае - TPhysPoint.Create), то где-то должно быть обратное действие по удалению ресурса.

Рекомендую подучить мат-часть.