Array mit Bildern

[Maren]

Hallo,
ich wollte ein Array deklarieren, in dem Images gespeichert werden. Ich habe nur leider keine Ahnung wie das geht. Kann mir irgendwer helfen?
Bye, Maren

[Luckie]

Hm, was für Bilder? Die Bilder selbst oder nur die Pfade zu den Bildern?

Ansonsten:

Delphi-Quellcode:

var
  ImgArray: array[0..9] of TImage;

Oder

Delphi-Quellcode:

var
  BmpArray: array[0..9] of TBitmap;

Wenn zur Entwurfszeit noch nicht feststeht wie viele Bilder es sind, dann nimm ein dynamisches Array.

[Sharky]

Hai Maren,

Herzlich Willkomen in der Delphi-PRAXIS.

Du kannst einfach ein Array of TImage erstellen.

Delphi-Quellcode:

var
 myImages : Array [1..10] of TImage;

procedure TForm1.Button1Click(Sender: TObject);
begin
 myImages[1].Picture.LoadFromFile();
end;

[EDIT]Menno, das Luckie war wieder schneller [/EDIT]

[OLLI_T]

Hallo Maren!

Wenn es ein statisches Array sein soll:

BmpArray: Array[0..10] of TBitmap; Wenn es denn dynamisch sein soll:

Delphi-Quellcode:

BmpArray: Array of TBitmap;
...
SetLength(BmpArray,Count);

Wenn es ganz komfortabel sein soll arbeite mit TList;

Delphi-Quellcode:

Var
  lstBmp:TList;
  Bmp:TBitmap;
Begin
  lstBmp:=TList.Create;
  lstBmp.Add(Pointer(Bmp)); // rein
  Bmp:=TBitmap(lstBmp[i]);  // raus
End;

Viel Spass damit

OLLI

Immerhin noch die Bronzemedaille ergattert

[Maren]

Dankeschön, das hilft mir bestimmt.

[Luckie]

Oder. Kuck die mal die ImageList Komponente an.

[r_kerber]

Hallo Maren,

ich schließe mich zunächst erst mal meinen Vorrednern bezüglich der Feldvereinbarung an. Ich glaube aber, Du mußt dann jedes TImage-Object erstmal erzeugen, bin mir aber nicht ganz sicher. Einfach mal ausprobieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  fImages: array[1..10] of TImage;
begin
  fImages [1] := TImage.Create(Self);
  fImages[1].Picture.Bitmap.LoadFromFile('Bild.bmp');
end;