Ich habe eine kleine Funktion geschrieben welche mit Zufallsbilder anzeigen soll
Delphi-Quellcode:
function Zufallsfeld:TImage;
var name:string;
begin
name := 'Image'+Inttostr(RandomRange(14,1))+'_'+inttostr(RandomRange(15,1));
result := TImage(name);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Imagelist1.GetBitmap(1,Zufallsfeld.Picture.Bitmap);
end;
Leider funktioniert das nicht. Kann mir jemand erklären wieso?
Die Namen meiner Bilder sind natürlich im Format Image1_1 usw aufgebaut.