Kann man diesen Quelltextausschnitt verkürzen?

[Daniel]

Hallo,

wenn Du bereit wärest, die Zahlen in einem Array abzuspeichern, könntest Du den Code durch Verwendung einer Schleife noch weiter komprimieren:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var index : Integer;
begin 
  Randomize; 
  For index:= 1 To 6 Do
  Begin
    zahl[Index]:= Random(6); 
    TImage(FindComponent('Wuerfel'+IntToStr(Index))).Picture.LoadFromFile(IntToStr(zahl[Index]+1)+'.bmp'); 
  End;
end;

In diesem Beispiel bin ich jetzt davon ausgegangen, dass Deine Komponenten "Wuerfel" vom Typ TImage sind - solltest Du eine andere Klasse verwandt haben, so musst Du die Typ-Umwandlung ("dat Dingens vor dem 'FindComponent'") entsprechend anpassen.