[delphi-en] Dispose method !

[Saurabh Rai]

Type 
PRec = ^Rec;
Rec = packed record 
VarP : integer ;
End;

Type 
  RecArray = array of PRec ;

Assigninment :

function TCLassOne.FillArray ;
Var 
    VarOne :PRec ;
    VarI : Integer l
Begin
        SetLength(RecArray,500);
        for VarI=0 to 500 do 
        Begin
                New(VarOne );
                VarOne^.VarP := VarI; 
                RecArray[VarI]:=  VarOne ;
        End;
End;

Releasing Mem :

function TCLassOne.ReleaseArray;
Var 
    VarI : Integer l
Begin
    for VarI := 0 to Length(RecArray) - 1 do
    begin
        if (RecArray[VarI ] = NIL) then break;
        Dispose(RecArray[VarI ]);
        RecArray[VarI ] := NIL;
    end;
End;


 Hi seniours , 
      im silent user of this group , really scared for asking my first question 
.but i want expert review ..
i ve mentioned two functions above first for assignment of array and second for 
reasing mem . but i ve some problem coz mem is not getting free untill 
appication is closed . means fucntion ReleaseArray isnt releasing mem of 
records held by array of pointers . 
 pls pls im stucked .
hope u understand my prob as i dun 've gud english .
thanks and regards .
Saurabh rai.











-------------------------------------------------------
Summit Information Technologies Limited, Gurgaon, India


[Non-text portions of this message have been removed]