[Admin]

Сообщение от 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-х недельный бан за несоблюдение правил оформления кода.