Bittmaps in Array of TBitmap schreiben

[Evian]

Hallöschen,

ich versuche ein paar Bitmaps verkleinert in ein Array of Bitmap zu schreiben.

Delphi-Quellcode:

...
Type
Athumps = Array of Tbitmap;

var
  thumps : Athumps;

...

procedure TForm5.makeminimap;
VAR
a,b,i,he,wi,x,y : INTEGER;
Bild :TBitmap;
jpeg: TJpegImage;
begin
  he := 1000 DIV unit1.YLENTH;
  wi := 1000 DIV unit1.XLENTH;

  setlength(thumps,0);
  setlength(thumps,form1.ListBox2.Count);

  Bild := TBitmap.Create;
  jpeg := TJpegImage.Create;

  Bild.Width := wi; Bild.Height := he;

for i := 1 TO form1.ListBox2.Count do
BEGIN
    Jpeg.Assign(form2.getPicture(i));
    Bild.Canvas.StretchDraw(Rect(0, 0, wi, he),Jpeg);
    thumps[i] := Tbitmap.Create;
    thumps[i].Assign(Bild);
END; 

END;

Aber ich bekomme immer eine Invalid - Pointer Exception...

Was mache ich Falsch?!


gruß

Evian

[Luckie]

Delphi-Quellcode:

for i := 1 TO form1.ListBox2.Count do

Muss heißen:

Delphi-Quellcode:

for i := 0 TO form1.ListBox2.Count-1 do

[Pseudemys Nelsoni]

Wo gibst du "JPeg" eigentlich wieder frei?

N Kleiner Tipp noch(Nicht böse nehmen :thumb: ): Delphi Styleguide

[Evian]

mh.. :roll: diese doofen Felder, warum müssen die auch immer bei 0 anfangen ?!

ohh Gott, wenn das mein Alter Informatik Lehrer sehen würde...

Zitat:

Zitat von Pseudemys Nelsoni

Wo gibst du "JPeg" eigentlich wieder frei?

N Kleiner Tipp noch(Nicht böse nehmen :thumb: ): Delphi Styleguide

naja war nicht der ganze Code ... drunter kommt noch mehr, und dann gebe ich das Bitmap und ddas JPEG wieder frei :)

[Pseudemys Nelsoni]

Ich sehe 2 begins und 2 ends ;) demnach sollte das Jpeg schon dort freigegeben(Try/Finally) sein.

Aber ich kann mich natürlich auch irren ;)

MfG

[Evian]

ja hatte den Code rauscopiert und dann einfach nen End hinten rangeschrieben ... damitt keiner sagt .. "ey da fehlt ja ein End" .. :D

[Pseudemys Nelsoni]

Jetzt hattest du jemand der Dir sagt das ein Objekt nicht freigegen wird. - Viel schlimmer. Ich hoffe du hast daraus gelernt! :warn: :mrgreen: :mrgreen: :mrgreen: