Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.116 Beiträge
 
Delphi 11 Alexandria
 
#3
  Alt 8. Dez 2002, 15:59
Moin Nonsense,

trotzdem noch ein Kommentar zu Deinem Beispiel:

Du belegst durch TBitmap.Create Resourcen (in diesem Falle Speicher), und gibst diese nicht wieder frei.

Delphi-Quellcode:
procedure TWindow.FormCreate(Sender: TObject);
var
  Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    ImageList.GetBitmap(0, Bitmap);
    Window.Canvas.Draw(0, 0, Bitmap);
  finally
    FreeAndNil(Bitmap);
  end;
end;
So könntest Du sicherstellen, das der belegte Speicher wieder freigegeben wird.

[edit=Daniel B]Code-Formatierung; MfG Daniel B.[/edit]
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat