[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;

[M.A.D.M.A.N.]

https://ru.wikipedia.org/wiki/%D0%92...BD%D0%BD%D0%B0

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