mehrere fast gleichnahmige Jpg fast gl.namig. TImages zuweis

[Matze]

Hallo,

die Frage ist eher was fehlt dir, was brauchst du, was willst du? Ganz verstanden habe ich es nicht, dennoch ein paar Hinweise:

An deiner Stelle würde ich die Dateinamen in einem Array verwalten. Das hat zum Einen den Vorteil, dass du die Dateinamen beliebig wählen kannst und zum Anderen leichten Zugriff auf die Dateinamen hast:

Delphi-Quellcode:

const CardImgFilenames: array[0..5] of string = (
  'CardRED01.jpg', 'CardRED02.jpg', 'CardRED03.jpg',
  'CardBLACK01.jpg', 'CardBLACK02.jpg', 'CardBLACK03.jpg'
);

Dann kannst du eine Zufallszahl erzeugen:

Num := Random(6); Und dir daraus den Dateinamen zusammen basteln:

Filepath := ExtractFilePath(ParamStr(0)) + CardImgFilenames[Num]; Dann machst du dir daraus eine Funktion und fertig.

Wenn du nur ein einziges TImage-Array hast, würde ich das übrigens nicht als Parameter übergeben, sondern nur den Index des Bildes (ImgNum). Dann kannst du darauf zugreifen wie eben gezeigt:

ImgArray[ImgNum].Picture.LoadFromFile(Filepath); Grüße, Matze

Edit: Bitte ändere noch den Titel. Sonst weiß keiner, worum es hier geht.