Warum meckert FastMM hier ein Speicherleck an?

[Benmik]

Folgender Code:

Delphi-Quellcode:

procedure TForm1.TuWas;
var i:integer; 
    Txt:string; 
    VerzListe:TStringList; 
    PathList:TJamPathList;
begin
  ...
  PathList              := TJamPathList.Create; // TJamPathList = TStringList
  VerzListe             := TStringList.Create;
  VerzListe.Sorted      := True;
  VerzListe.Duplicates  := dupIgnore;
  Try
    ...
    For i := PathList.Count - 1 downto 0 do
      VerzListe.Add(ExtractFileDir(PathList[i]));
  Finally
    PathList.OwnsObjects := True;
    FreeAndNil(PathList);
    VerzListe.OwnsObjects := True;
    FreeAndNil(VerzListe);
  End;

Der Memory-Manager meldet:

Zitat:

This application has leaked memory. The small block leaks are (excluding expected leaks registered by pointer):

13 - 20 bytes: UnicodeString x 1
85 - 100 bytes: TJamPathList x 1

Ich bin dem Code bis in System und System.Classes gefolgt, alles verläuft ordnungsgemäß.
Ich habe die Strings der Liste manuell auf '' gesetzt und alles Mögliche - FastMM meint, da sei ein Speicherleck.
Kann das sein, dass FastMM da Unsinn berichtet?

[Neutral General]

In deinem Code kann man nicht sehen ob/wo PathList:TJamPathList erstellt wird.

[Der schöne Günther]

Oder was es überhaupt ist. Laut diesem Link soll gelten TJamPathList = class(TFilenameList); aber was nun ein TFilenameList ist habe ich nirgendwo im Internetz finden können...

[hoika]

Hallo,
sicher, dass es genau diese Stelle ist?

Mache doch mal ein

Delphi-Quellcode:

PathList:= TJamPathList.Create;
try
  PathList.Add('Bla');
finally
  PathList.Free;
end;

[Benmik]

Steht in Shell_Win32: TFilenameList = TStringList; Ich habe es oben eingefügt. Ich hielt es nicht für wichtig, die Verzliste allein würde doch genügen. Ich habe es nur mit aufgenommen, da beide angemeckert werden.

@hoika:
Wenn ich nur

Delphi-Quellcode:

  JamPathList:= TJamPathList.Create;
  try
    JamPathList.Add('Bla');
  finally
    JamPathList.Free;
  end;

ausführe, bleibt FastMM stumm.
Was soll das bedeuten? Sowohl PathList als auch VerzListe sind lokale Variablen.

Ouuh, das war ein guter Hinweis. Die JamPathList wird in einer Routine GetListOfAllFiles gefüllt, in der die Liste nicht nur gefüllt, sondern auch erzeugt wird (!). PathList := TJamPathList.Create; mal weggelassen, funktioniert nicht nur, sondern die Warnung ist auch weg. Und zwar die Warnung bei Verzliste auch. Da komme ich vielleicht auch selbst dahinter, warum das so ist.

[hoika]

Hallo,

Zitat:

Was soll das bedeuten?

Das bedeutet, dass Du uns nicht den ganzen Code gezeigt hast.
Zeige doch mal etwas mehr Code, siehe weiter oben.
Vielleicht ist es auch eine völlig andere Stelle?

OK. hast du
Was soll das OwnsObject?

Klammere alles aus, was in Deinem ... steht.
Auch das Sorted und Duplicates erst mal weg.

Dann immer weiter Code reinnehmen, bis Du die Stelle gefunden hast.


Und zuletzt läßt sich Dein Code gar nicht kompilieren

PathList:TJamPathList;
begin
...
JamPathList := TJamPathList.Create; // TJamPathList = TStringList

[TiGü]

Du hast PathList und JamPathList...eins davon gibst du nicht frei.

[Benmik]

Zitat von TiGü:

Du hast PathList und JamPathList...eins davon gibst du nicht frei.

Tut mir leid, das sind die gleichen Variablen, ich hatte das JamPathList einfach auf PathList gekürzt...

Das OwnsObject und Sorted sind Überbleibsel von meinen Versuchen, das Object manuell zu leeren...

Das war eine rasche Lösung, vielen Dank. Tut mir leid, dass ich mit der wechselnden Verwendung von JamPathList und PathList für Verwirrung gesorgt habe. JamPathList ist eine einfache Stringlist, und ich wollte dem Rätselraten vorbeugen, was eine JamPathList genau ist... Hatte leider einen paradoxen Effekt.

[Neutral General]

Wir brauchen den Code

[hoika]

Hallo,
hast Du denn jetzt mal alles nicht relevante ausgeklammert?