Memoryleak oder doch nicht?

[Fritzew]

Wann und vor allem wie gibst Du
FPBuffer^.Str := sBuffer; wieder frei?

[EWeiss]

Zitat von Fritzew:

Wann und vor allem wie gibst Du
FPBuffer^.Str := sBuffer; wieder frei?

Nach dem Parsen des TextFile.

Delphi-Quellcode:

  // Resourcen Freigeben
  Dispose(FPBuffer);
  FPBuffer := nil;
  Dispose(LineStart);
  LineStart := nil;
  Result := True;

EDIT:
Mit new erstellt und Dispose freigegeben.

gruss

[Fritzew]

Da liegt der Hund begraben.....
Der String wird nich freigegeben.

mach einfach

Delphi-Quellcode:

finalize(FPbuffer^);
//oder 
FPBuffer^.Str := nil;

Dispose(FPBuffer);
FPBuffer := nil;

Wenn Du nur den Speicher freigibst werden die Strings nicht gelöscht.

Aus der Hilfe zu finalize

Zitat:

Die Variable enthält lange Strings, Varianten und Interfaces, die nicht alle leer sind bzw. den Wert Unassigned haben.

Finalize setzt einfach alle langen Strings auf einen leeren Wert und alle Varianten und Interfaces auf Unassigned und sorgt somit für die ordnungsgemäße Freigabe des betreffenden Speichers.

[EWeiss]

Dann werde ich es mal so bearbeiten wie von dir vorgeschlagen.. Danke.

Hmmm dachte eigentlich ein Dispose würde reichen.
Ok wieder was gelernt.

gruss

[EWeiss]

Jetzt habe ich nur noch eins.
Dann ist alles bereinigt.

Zitat:

--------------------------------------------------------------------------------------------------------------------------------------
|Methods |Details|Stack |Address |Module |Offset |Unit |Class |Procedure/Method |Line |
--------------------------------------------------------------------------------------------------------------------------------------
|+Leak #1: Type=Data at $05C5FF90; Total size=480; Count=30 |
|------------------------------------------------------------------------------------------------------------------------------------|
|00000002|03 |00000000|009C9865|SK_Aero.dll |00009865|System | |_New | |
|00000002|04 |00000000|00C0DECF|SK_Aero.dll |0024DECF|uSkinConfig|TSkinConfig|FBuffin |989[13] |
|00000002|04 |00000000|00C0C4EE|SK_Aero.dll |0024C4EE|uSkinConfig|TSkinConfig|GetConfiguration |305[5] |
|00000002|04 |00000000|00C11ADF|SK_Aero.dll |00251ADF|uSkin |TSkinEngine|InitSkin |648[28] |
|00000002|04 |00000000|00C08DCB|SK_Aero.dll |00248DCB|uMaster | |SKAERO_InitSkin |804[2] |
|00000002|03 |00000000|75213366|kernel32.dll|00013366|kernel32 | |BaseThreadInitThunk | |
|00000002|03 |00000000|77019900|ntdll.dll |00039900|ntdll | | (possible RtlInitializeExceptionChain+97)| |
|00000002|03 |00000000|770198CE|ntdll.dll |000398CE|ntdll | | (possible RtlInitializeExceptionChain+47)| |
--------------------------------------------------------------------------------------------------------------------------------------

Deine Änderung hat geholfen Danke nochmal.

Delphi-Quellcode:

  // Resourcen Freigeben
  finalize(FPbuffer^);
  Dispose(FPBuffer);
  FPBuffer := nil;
  finalize(LineStart^);
  Dispose(LineStart);
  LineStart := nil;
  Result := True;

gruss

[Fritzew]

Das wird sicher nur 1+ durchlaufen?

Delphi-Quellcode:

if nReading = 0 then
  Begin
    New(FToPBuffer);
    LineStart := FToPBuffer;
    LineStart^.Nr := 0;
  end;

[EWeiss]

Zitat von Fritzew:

Das wird sicher nur 1+ durchlaufen?

Delphi-Quellcode:

if nReading = 0 then
  Begin
    New(FToPBuffer);
    LineStart := FToPBuffer;
    LineStart^.Nr := 0;
  end;

Ja wenn nReading = 0

EDIT:
Und LineStart wird ja freigegeben.
Da es der gleiche Pointer wie der von FToPBuffer ist darf ich FToPBuffer nicht nochmals freigeben das wäre ja dann doppelt gemoppelt.


gruss