| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как сгенерить 14-значное цеолое число [D6, Win95/98, WinME, WinXP]
Danger © (2002-12-11 23:38:00)Товарищи програмисты, помогите тупому! Необходимо сгенерить случайное целое 14-значное число, но никак не могу этого сделать, вроде бы просто, как дрова, но что то в голову ничего не лезет :( Подсказавшему - огромное человеческое спасибо!
melifaro (2002-12-12 08:14:00) [1]function MyRandom ( Count : Integer ) : int64;
Var
I : Integer;
Tmp : String;
Begin
If Count > 19 then Exit;
For I := 1 to Count do
Tmp := Tmp + IntToStr ( Random ( 9 ) + 1 );
Result := StrToInt64Def ( Tmp, 9223372036854775807 );
End;
Генерирует числа заданного размера. Но не более 19 разрядов или
9223372036854775807 (максимально в int64).
Danger (2002-12-12 03:38:00) [2]И как я сам не додумался до такой элементарщины... Спасибо что натолкнули на верный путь!
$ZoD$ (2002-12-12 03:24:00) [3]random(14);
xyz (2002-12-12 01:46:00) [4]а можно тупее сделать!
сгенерить 14 случайных чисел (0-9) и потом их сложив как стороку стрТУинт...
Юрий Зотов (2002-12-12 00:33:00) [5]Sorry, < =99999999999999
Юрий Зотов (2002-12-12 00:10:00) [6]Сойдет?
function GetMyNumber: Int64;
begin
Result := Round((1 + Random(9)) * 1e13)
end;
Генерит случайное число в диапазоне
10000000000000 <= Result < 99999999999999
| |
