Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Вниз

Генерация случайного числа в диапазоне 30......90   Найти похожие ветки 

← →
DELPHIMUN   (2002-01-15 16:47) [6]

function randomNamber(namber: integer): integer;
begin
result := random(namber);
end;
procedure button1click(sender: tobject);
var
e: tedit;
begin
e := tedit.create(sender);
e.parent := form1;
e.top...
...
randomnamber(strtoint(e.text));
end;
end.

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.02.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c