TStringList und MemoryLeak (FastMM)

[Schwedenbitter]

Hallo,

bei folgendem Code:

Delphi-Quellcode:

// Einstellungen aus Registry laden
Procedure TSettings.Load;
Var
  S    : String;
Begin
  With TRegistry.Create(KEY_READ) Do
  Try
    RootKey:=HKEY_CURRENT_USER;
    Try
      If OpenKeyReadOnly(AdvoPfad) Then
      Begin
        ...
        S:=ReadString( 'aPopup' );   // Zu blockende Fenster
        If S = '' Then FPopBlock.Text:='Nur ein Fenster'
        Else           FPopBlock.Text:=S;// <- genau hier besteht das Problem
        ...
        CloseKey;
    Except End;
  Finally
    Free;
  End;
End;

erhalte ich mit FastMM folgende Meldung:

Code:

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

5 - 12 bytes: AnsiString x 1
13 - 20 bytes: AnsiString x 2
21 - 36 bytes: AnsiString x 1, Unknown x 1
53 - 68 bytes: TStringList x 1

wobei die letzte Meldung bzgl. der TStringList lt. konkreter Beschreibung von FastMM wohl dem mitgegebenen Code von Delphi anzulasten ist.
Wenn ich nun die beiden Zeilen mit den Zuweisungen an FPopBlock.Text (=TStringList) auskommentiere, bekomme ich nur noch die letzte Meldung.

Was hat das mit dem AnsiString zu bedeuten und wie bekomme ich es (wieder) weg?

Ich habe bereits die Hilfe benutzt. Das Problem i.V.m. FastMM scheint niemand zu haben. Ich habe nur herausgefunden, dass man wohl manchmal auch Strings leeren muss mit S:='';. Aber selbst, wenn ich das am Schluss einfüge, bleiben die Meldungen. Und ich verstehe auch nicht, warum er über einen AnsiString meckert, wo doch S eindeutig vom Typ String ist.

Gruß, Alex