Forum: Object-Pascal / Delphi-Language
by himitsu,
28. Okt 2016
Und wer gewinnst, wenn man mehrere Klassen delegiert?
Bestimmt der mit dein meisten Bytes im Code, wo mindstens ein Byte den Wert 666 hat. :stupid:
Forum: Object-Pascal / Delphi-Language
by himitsu,
27. Okt 2016
Joar, hatte irgendwie das procedure als project gelesen. :oops:
Aaaaaaaaalso, im XE das Selbe.
Es liegt am Implements.
Aus irgendeinem Grund besitzt TMyWrapper zwei Referenzen, anstatt nur Einer.
Und da es nur eine Variable und auch keine "versteckte" Tempvariable gibt, steht RefCount am Ende (nach __Release im end;) immernoch über 0, womit die Isntanz natürlich nicht freigegeben wird.
Forum: Object-Pascal / Delphi-Language
by himitsu,
27. Okt 2016
falsch geguckt.
Hier auch?
procedure Test;
procedure TestProc;
var
MyInterface: IMyInterface;
begin
MyInterface := TMyWrapper.Create(); // <- mit dieser Zeile Memory Leak