Bild in eine zufällige TImage laden...

[Jan]

Ich kann mir nicht helfen, aber ich finde die Frage blöd.

Code:

bild.loadfromfile('C:\Dokumente und Einstellungen\Jan\Eigene Dateien\Eigene Bilder\Artwork\Kamara.bmp'); 
s:=random(9); 
picarray[s].picture.Bitmap :=bild;

wird zu:

Code:

bild.loadfromfile('C:\Dokumente und Einstellungen\Jan\Eigene Dateien\Eigene Bilder\Artwork\Kamara.bmp'); 
s:=random(9);
if picarray[s].picture.bitmap:=nil then 
picarray[s].picture.Bitmap :=bild;