Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.05.22;
Скачать: [xml.tar.bz2];

Вниз

Функции   Найти похожие ветки 

 
Гость   (2003-05-11 07:29) [0]

Как приписать функции значения random?
Т.е. чтоб функция выполняло действия столько столько random.
(Бред:))


 
Rocker   (2003-05-11 08:51) [1]

Неясен вопрос!


 
Great_Lesh   (2003-05-11 09:42) [2]

Если я правильно понял - по функция должна выполняться random число раз.
Если так - тогда:
var
i: integer;
begin
Randomize;
i := random(20)+1; //[1..20], т.к. если 0 - выполняться не будет
while i > 0 do begin
dec(i);
showmessage("Осталось "+inttostr(i)+" раз");
end;


 
Гость   (2003-05-11 15:10) [3]

Great_Lesh Спасибо большое.


 
Ihor Osov'yak   (2003-05-11 15:28) [4]

2 Great_Lesh (11.05.03 09:42)

Одна очень плохая вещь. Randomize должно вызываться в течении работы программы только один раз. Почему - рассказывать долго.

Randomize лучше вынести в секцию инициализации или в *.dpr




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

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

Наверх





Память: 0.44 MB
Время: 0.008 c
14-70497
Васька
2003-05-02 09:42
2003.05.22
ASYNC Proffesional


1-70394
edicon
2003-05-11 00:28
2003.05.22
ExcelApplication


8-70397
Axis_of_Evil
2002-12-16 09:25
2003.05.22
UnDelphiX


1-70369
NoMaD
2003-05-10 09:34
2003.05.22
Как отследит нажатие Ctrl


3-70145
pathfinder
2003-05-01 18:56
2003.05.22
Проблема с SELECT... Help!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский