Programmets \"Mem Usage\" i Win2000

Ikke noget, før du har lukket dit program helt, men delphi har en indbygget men. manager, og det er nok den der \"holder\" på din fre\'et men. så du ikke kan se det i windows, det er nok et forsøg på at undgå defragmenteret men. Jeg bruger normalt procedure FreeAndNil() når jeg free\'er.

/Martin

NT\'s (og i det sammenhæng W2000\'s) TaskManager kan IKKE bruges som et debug-værktøj, og du kan derfor ikke bruge den til af se om der er memory leaks i dit program. Til den formål skal du bruge et værktøj der er beregnet til det formål F.eks. MemProof (http://www.automatedqa.com/products/memproof.asp), eller bedre TurboPower\'s Memory Sleuth (http://www.turbopower.com/products/sleuth/).

Prøv at starte et af dine programmer, rod lidt rund i dine forms og se på memory-forbruget i TaskManageren (jeg sidder her med et af mine progammer og TaskManageren siger næsten 6 MB). Nu minimizer du din applikation og venter lidt (nu siger TaskManageren i mit tilfælde omkring 600 KB) og hvis du igen åbner dit program og kigger på et par forms stiger det måske til 1.5 MB !?.

Dette skyldes at under NT så er programmerne \"flinke\" til at melde overfor taskmanageren når de bruger hukommelse, men de er ikke lige så flinke til at melde de igen frigiver det. MEN når du minimizer en applikation udføre den et specielt API kald der får TaskManageren til at \"refreshe\" din applikations memory forbrug.

Lad mig gentager: Du kan IKKE bruge TaskManageren til at debug\'e en applikation  :-)

martinlind> Om du bruger Free eller FreeAndNil har i dette sammenhæng ikke noget at sige. Sidstnævnte sætter blot din pointer variable til nil hvilket i visse sammehæng kan rede dig fra at bruge et object som er disposed (så fremt i fald at du huske at undersøge om variablen er brugbar: if Assigned(SomeObject) then SomeObject.DoSomething;).

pellelil>> det er jeg klar over, det var mere fordi det virker som om han er lidt usikker, og så ville jeg såmænd bare oplyse at jeg brugte FreeAndNil. :)

martinlin> No hard feelings, jeg er også selv begyndt at bruge FreeAndNil her på det sidste selvom jeg aldrig selv har haft problemer med Free, som jeg vil tilskrive god programmerings tekning ;-)

Jeg har Delphi4. Kan ikke finde FreeAndNil() - er det en hjemmelavet procedure :
procedure FreeAndNil(var AObject);
begin
  AObject.Free;
  AOBject := nil;
end;
???

Carsten

Jeg ved ikke om FreeAndNil er i Delphi4, men i Delphi5 finder du den i SysUtils.pas og den ser sådan her ud:
<SNIP>
procedure FreeAndNil(var Obj);
var
  P: TObject;
begin
  P := TObject(Obj);
  TObject(Obj) := nil;  // clear the reference before destroying the object
  P.Free;
end;
</SNIP>

Må være Delphi5-specifik - og nu også i min Delphi4. Tak.

pellelil>> lyder rigtigt *S*