Waddo
09-04-2008, 06:41 PM
i want the dice to change 10 times
zip=sauce and exe
Daniel
09-05-2008, 10:10 AM
Tried something like?:
var
i: Integer;
procedure TForm1.Button2Click(Sender: TObject);
begin
if(i>10) then
Exit;
Form1.Memo1.Lines.Clear;
Form1.Memo1.Lines.Add(IntToStr(Random(6)+1));
Form1.Memo2.Lines.Clear;
Form1.Memo2.Lines.Add(IntToStr(Random(6)+1));
i:=i+1;
end;
?
Powered by vBulletin® Version 4.2.1 Copyright © 2024 vBulletin Solutions, Inc. All rights reserved.