Цитата:
|
Сообщение от delpi12
цифры не повторялись
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
int : Integer;
i : Integer;
begin
for i := 1 to 1 do
begin
int := Randomrange(spinedit1.value,spinedit2.value);
label1.Caption:=label1.caption +#13#10 + IntToStr(int);
end;
end;
|
Админ: 2-х недельный бан за несоблюдение правил оформления кода.