Frage zu Image1.Picture.Assign

[Hallo_Thomas]

Hallo

Ich wollte gern so ne Art Array of Bitmap erstellen.


so klappt das ja alles einwandfrei;

Image1.Picture.Assign(Bild); aber als ich dies als array haben wollte delphi hir nich weiter:

Image1.Picture.Assign(Bild[1]); Fehlermelung: Array Typ erforderlich


So hab ich die array definiert, beim hochladen der .bmp gabs auch keine fehlermeldung, ich denke dass klappte
Bild: array[1..36] of TBitmap;

[hanselmansel]

HiHo,

und was ist nun dein Problem?

MfG,

hanselmansel

[Hallo_Thomas]

Image1.Picture.Assign(Bild[1]); Fehlermelung: Array Typ erforderlich

Was mach ich hier verkehrt?

[marabu]

Hallo Thomas,

eigentlich machst du gar nichts verkehrt. Wahrscheinlich musst du mal etwas Ordnung in deinen Quelltext bringen:

Delphi-Quellcode:

procedure TDemoForm.TestButtonClick(Sender: TObject);
var
  Bild: array [1..36] of TBitMap;
begin
  // ...
  Image.Picture.Assign(Bild[1]);
end;

Kompiliert einwandfrei.

Grüße vom marabu

[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