Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Для новичков > Область генерации функции random

Автор: SneG0K 17.2.2008, 00:49

Что мне сделать с функцией random, чтоб она вернула мне результат, допустим от 8 до 15???

Автор: VICTAR 17.2.2008, 01:11

Код


function RandomRange(const AFrom, ATo: Integer): Integer;

Автор: SneG0K 17.2.2008, 01:22

а какой у неё заголовок, а то у меня чето дельфи лесом посылает

Автор: VICTAR 17.2.2008, 01:32

Ставишь курсор на функцию, нажимаешь F1.

Код


uses Math;

Автор: SneG0K 17.2.2008, 01:44

Спасибо... Как я сам не догадался нажать F1 smile

Автор: Rohoss 17.2.2008, 03:20

А почему не сделать так:

Код


 random(8)+8

Автор: kemiisto 17.2.2008, 11:11

Rohoss, если посмотреть на реализацию RandomRange, Borland примерно тоже самое и делает smile

Код


function RandomRange(const AFrom, ATo: Integer): Integer;
begin
  if AFrom > ATo then
    Result := Random(AFrom - ATo) + ATo
  else
    Result := Random(ATo - AFrom) + AFrom;
end;