Hallo zusammen,
ich bin auf der Suche nach Memory-Leaks. Dazu verwende ich madexcept, spielt aber für meine Frage wohl keine Rolle. Ich meine in TEncoding etwas gefunden zu haben, bin mir aber nicht sicher. Also ...
Bei debuggen (in SysUtils Tokio) komme ich da durch:
Delphi-Quellcode:
class function TEncoding.GetBufferEncoding(const Buffer: TBytes; var AEncoding: TEncoding;
ADefaultEncoding: TEncoding): Integer;
...
var
Preamble: TBytes;
begin
Result := 0;
if AEncoding = nil then
begin
// Find the appropraite encoding
if ContainsPreamble(Buffer, TEncoding.UTF8.GetPreamble) then
AEncoding := TEncoding.UTF8
else if ContainsPreamble(Buffer, TEncoding.Unicode.GetPreamble) then
...
end;
Dort bei "TEncoding.Unicode.GetPreamble" rein komme ich zu
Delphi-Quellcode:
class function TEncoding.GetUnicode: TEncoding;
var
LEncoding: TEncoding;
begin
if FUnicodeEncoding = nil then
begin
LEncoding := TUnicodeEncoding.Create;
if AtomicCmpExchange(Pointer(FUnicodeEncoding), Pointer(LEncoding), nil) <> nil then
LEncoding.Free;
{$IFDEF AUTOREFCOUNT}
FUnicodeEncoding.__ObjAddRef;
{$ENDIF AUTOREFCOUNT}
end;
Result := FUnicodeEncoding;
end;
Bei "TUnicodeEncoding.Create" wird Speicher erzeugt. Bei LEncoding.Free; komme ich nicht vorbei. Das wird dann bei Result übergeben und weiter oben nirgendwo freigegeben. Ich sehe auch nicht dass es eine Klasse mit Referenzzählung wäre.
Was sehe ich falsch? Oder ist das wirklich ein Leak?