Hi Leute,
ich habe ein Objekt TBildbearbeiter, dass in seinem Constructor ein Bitmap erzeugt. Das Objekt eine Prozedur, in der mit dem erzeugten Bitmap gearbeitet wird, im Destructor wird das Bitmap dann wieder freigegeben. Allerdings bekomme ich an der Stelle immer eine
AV. Wenn ich die Zeile auskommentiere geht es.
Delphi-Quellcode:
TBildbearbeiter =
class
hBild : TBitmap;
//etc...
constructor Create();
begin
hBild := TBitmap.Create;
end;
function SchwarzWeissBild(pBild:TBitmap):TBitmap;
begin
hBild := pBild;
//Das Bitmap wird verändert, Canvas Befehle, etc....
result := hBild;
end;
destructor Destroy();
begin
hBild.destroy;
//hier kommt die AV, außer wenn ich auskommentiere, auch free geht nicht
end;
Ich häng das Programm nochmal an, falls es sich einer nochmal mit Aufruf, etc. angucken will.
tia, mfg, gordon
