Zitat von
computer-glossar.de:
heir einmal der constructor dieser klasse:
Delphi-Quellcode:
Constructor TCircleScope.Create(Width, Height : Integer);
begin
VisBuff := TBitmap.Create;
BackBmp := TBitmap.Create;
end;
der desctructor ist leider nicht in der
unit aufzufinden?!
wie doof ist das denn?
Es werden zwei Bitmap erzeugt. Da der Destructor nicht vorhanden ist, werden diese zwei Bitmap nicht freigegeben. Lege den Destructor für TCircleScope an und gib die beiden Bitmap frei.
Delphi-Quellcode:
Destructor TCircleScope.destroy;
begin
VisBuff.free
BackBmp.free;
inherited
end;