Quellcode reduzieren

[jfheins]

Q'n'D-Lösung:

Delphi-Quellcode:

var
  bild: TImage;
  x: integer;
begin
x:=random(52)+1;
bild := FindComponent('image' + inttostr(x));
bild.visible:=true;
bild.top:=200;
bild.left:=300;
end;

Saubere Lösung: Bei Programmstart alle Bilder in ein Array packen und dann darüber ansprechen. Idealerweise kannst du die TImage-Komponenten auch zur Laufzeit erzeugen, aber ich weiß nicht ob du das schon kannst...