Array of Bitmap

[Kuehter]

Habe schon in mehreren Foren geguckt, nur ich komme nicht auf den Fehler

Delphi-Quellcode:

type 
Tarraybmp = array [0..26] of TBitmap;

Delphi-Quellcode:

function TForm1.bmpcall: Tarraybmp;
var
    counter : integer;

begin
    for counter := 0 to 26 do
    begin
        Result[counter].Create;
    end;
    Result[0].Assign(Image1.Picture.Graphic);
    Result[1].Assign(Image2.Picture.Graphic);
    Result[2].Assign(Image3.Picture.Graphic);
    Result[3].Assign(Image4.Picture.Graphic);
    Result[4].Assign(Image5.Picture.Graphic);
    Result[5].Assign(Image6.Picture.Graphic);
    Result[6].Assign(Image7.Picture.Graphic);
    Result[7].Assign(Image8.Picture.Graphic);
    Result[8].Assign(Image9.Picture.Graphic);
    Result[9].Assign(Image10.Picture.Graphic);
    Result[10].Assign(Image11.Picture.Graphic);
    Result[11].Assign(Image12.Picture.Graphic);
    Result[12].Assign(Image13.Picture.Graphic);
    Result[13].Assign(Image14.Picture.Graphic);
    Result[14].Assign(Image15.Picture.Graphic);
    Result[15].Assign(Image16.Picture.Graphic);
    Result[16].Assign(Image17.Picture.Graphic);
    Result[17].Assign(Image18.Picture.Graphic);
    Result[18].Assign(Image19.Picture.Graphic);
    Result[19].Assign(Image20.Picture.Graphic);
    Result[20].Assign(Image21.Picture.Graphic);
    Result[21].Assign(Image22.Picture.Graphic);
    Result[22].Assign(Image23.Picture.Graphic);
    Result[23].Assign(Image24.Picture.Graphic);
    Result[24].Assign(Image25.Picture.Graphic);
    Result[25].Assign(Image26.Picture.Graphic);
    Result[26].Assign(Image27.Picture.Graphic);
end;

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  DestRect : Trect;
  bmp : tarraybmp;
  verschiebung: integer;

begin
    bmp := bmpcall;
    verschiebung := 0;
    DestRect.Left := 20 + verschiebung;
    DestRect.Top := 20 + Verschiebung;
    Destrect.Right := Printer.PageWidth -4500 + verschiebung;
    Destrect.Bottom := Printer.PageHeight -6550 + verschiebung;
    Printer.Title := 'Hello';
    Printer.BeginDoc;
    Printer.Canvas.CopyRect(DestRect,bmp[0].Canvas,bmp[0].Canvas.ClipRect);
    //Printer.Canvas.Draw(30,30, Image1.Picture.Graphic);
    Printer.EndDoc;
end;

end.

steh gerade irgendwie aufen schlauch

ja wenn ich das aufrufen will kommt ein Exeptionfehler woran kann das den liegen ?
Vielleicht irgendwo ne Create oder so vergessen ?

[Neutral General]

Du solltest vielleicht auch eine Frage stellen statt uns nur deinen Quelltext dahinzuklatschen..

[Kuehter]

so jetztz habe ich die frage drunter geschrieben

[Neutral General]

Beim Erstellen von Objekten immer

Objekt := TKlasse.Create; ==>

Delphi-Quellcode:

for counter := 0 to 26 do
begin
  Result[counter] := TBitmap.Create;
end;

[Kuehter]

ich würde mal sagen voll das brett vorm kopf

ich habe das gerade erst geschrieben mit dem create bei einer anderen zeile hier voll verpennt

[himitsu]

Auf jeden Fall fehlen hier viele Free's ... ich sehe wunderschöne Speicherlecks.

Wobei ich eh nicht verstehe, warum die Bilder hier kopiert und nicht einfach nur "verlinkt" werden.
Oder was überhaupt die vielen TImages da auf der Form zu suchen haben. (Oder sind die wirklich alle auf der einen Form sichtbar?)