Frage zu Image1.Picture.Assign

[hanselmansel]

HiHo,

auch wenn Marabu schon gepostet hat, wollte ich meine Recherche dennoch nicht umsonst gemacht haben. Es ist zwar quick&dirty, aber der Code kompiliert und zeigt sogar das gewünschte Ergebnis:

Delphi-Quellcode:

type TImgArray = Array[0..9] of TBitmap;

[...]

procedure TForm1.Button1Click(Sender: TObject);
var
  AusDatei    :TBitmap;
  BilderFeld  :TImgarray;
  i           :Integer;

begin
AusDatei := TBitmap.Create;
AusDatei.LoadFromFile('D:\borland\Delphi7\Projects\Wb_norm.bmp');
For i := 0 to 9 do
  Begin
  BilderFeld[i] := TBitmap.Create;
  BilderFeld[i].Assign(AusDatei);
  End;
Image1.Picture.Assign(BilderFeld[1]);
end;

Ich habe hierbei geschlampt, die dynamischen TBitmaps wieder frei zu geben!

Viel Spass noch beim programmieren,

hanselmansel