Guten Tag,
Habe ein kleines Problem und zwar habe ich einen Würfel Programmiert. Wenn ich jetzt auf den Button Würfel klicke soll sich der Würfel z.B. 20Mal ändern und dann stehen bleiben. Habe das jetzt mit einer For-Schleife realisiert, aber er zeigt den Würfel nur genau 1mal an und zwar den von dem letzen Schleifendurchlauf. Wie bekomme ich das hin, das der Würfel nach jedem Schleifendurchgang erneuert wird? Vielen Dank schonmal für eure Hilfe.
Christian
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i,zufall: Integer;
bilderarray: array[1..6] of string;
begin
bilderarray[1] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\1.bmp';
bilderarray[2] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\2.bmp';
bilderarray[3] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\3.bmp';
bilderarray[4] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\4.bmp';
bilderarray[5] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\5.bmp';
bilderarray[6] := 'C:\Users\RüffRüff\Documents\Borland Studio-Projekte\test\6.bmp';
for i := 0 to 20 do
begin
zufall := Random(6)+1;
randomize;
Image1.Picture.LoadFromFile(bilderarray[zufall]);
sleep(500);
end;
end;