Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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.




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




Наверх





Память: 0.71 MB
Время: 0.022 c
3-8776            roman001              2002-01-05 21:15  2002.02.04  
SQL


6-8970            Oplg                  2001-11-12 18:57  2002.02.04  
Вопрос


1-8886            Dmitriy_R             2002-01-15 13:51  2002.02.04  
Генерация случайного числа в диапазоне 30......90


14-8973           Fay                   2001-12-10 06:50  2002.02.04  
Что означает слово


4-9034            KIR                   2001-12-04 00:51  2002.02.04  
Как зарегистрировать свой тип файлов