Memory Leak unter Windows

[Peter666]

Hi,

es gibt ein Leak, sobald man Frames nutzt unter Windows. Der Grund liegt hier:

Delphi-Quellcode:

unit FMX.AcceleratorKey.Win;
...
procedure TWinAcceleratorKeyRegistry.RegisterReceiver(const ARoot: IRoot; const AReceiver: IAcceleratorKeyReceiver);
begin
  if FFormRegistry = nil then
    FFormRegistry := TDictionary<IRoot, TAcceleratorKeyReceivers>.Create;
  if ARoot = nil then exit;
...

Da fehlt ein if ARoot = nil then exit;

Peter

[Luckie]

ARoot wird doch vom Aufrufer übergeben. Also sollte auch der Aufrufer wieder aufräumen. Denke ich. Aber da du den Rest des Codes abgeschnitten hast, sieht man nicht, wie es weiter geht.

[EWeiss]

if not Assigned(ARoot) then exit;

gruss

[CHackbart]

Ja, so hab ich das auch gemacht gehabt.

Delphi-Quellcode:

procedure TWinAcceleratorKeyRegistry.RegisterReceiver(const ARoot: IRoot; const AReceiver: IAcceleratorKeyReceiver);
begin
  if FFormRegistry = nil then
    FFormRegistry := TDictionary<IRoot, TAcceleratorKeyReceivers>.Create;
  if not assigned(ARoot) then exit;
  
  if not FFormRegistry.ContainsKey(ARoot) then
    FFormRegistry.Add(ARoot, TAcceleratorKeyReceivers.Create);
  FFormRegistry[ARoot].RegisterReceiver(AReceiver);
end;

Das ist wohl erst seit Berlin der Fall (https://www.google.de/#q=TAcceleratorKeyReceivers+leak) und tritt komischerweise auch auf, wenn man kein & im Text verwendet, um Kürzel zu definieren. Ich habe es damals auch nicht genauer verfolgt, aber beim Suchen nach eigenen Leaks, nervt es dauernd irgendwelche Leckagen von Embarcadero zu finden

Christian

[QuickAndDirty]

Die IDE selbst meldet das memory leak?
Kann Delphi XE8 das auch?

[uligerhardt]

Zitat von QuickAndDirty:

Die IDE selbst meldet das memory leak?
Kann Delphi XE8 das auch?

Sollte es.
ReportMemoryLeaksOnShutdown := True; ganz vorne beim Programmstart ausführen.