Zitat von
DeddyH:
Ich würde die Bitmap vorher erzeugen und die Instanz an die Funktion übergeben.
Delphi-Quellcode:
procedure MachWas(
const BMP: TBitmap);
begin
//hier malen
end;
...
procedure Wuppdi;
var bm: TBitmap;
begin
bm := TBitmap.Create;
try
MachWas(bm);
finally
bm.Free;
end;
end;
Das sieht Klasse aus. Danke.
Falls jemand noch nen "Trick" kennt zuerst den Rückgabewert auszugeben, und dann quasi zurück in die Funktion zu springen um die Variable wieder freizugeben, wäre das natürlich großartig ;D .. Aber sowas geht offenbar nicht :X.
~stift