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]

for i := 1 TO form1.ListBox2.Count do Muss heißen:
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 ): Delphi Styleguide

[Evian]

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

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

Zitat von Pseudemys Nelsoni:

Wo gibst du "JPeg" eigentlich wieder frei?

N Kleiner Tipp noch(Nicht böse nehmen ): 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" ..

[Pseudemys Nelsoni]

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