Генератор случайных чисел...

← →
barakuda (2007-11-01 12:04) [0]

добрый день уважаемые мастера...

вопрос таков... нужен генератор случайных четырёхзначных чисел

я вот написал.. как мог..:) ...
procedure tform1.recordfile(chto: string); begin rec.Lines.LoadFromFile("page.html"); rec.Text:=ReplaceStr(rec.Text,"<text>", chto); rec.Lines.SaveToFile(inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+".html"); end;

генерирует он шикарно...
НО .. при новом запуске программы... все числа повторяются один в один
??? Как сделать, что бы числа были абсолютно разные

Заранее благодарен...

← →
novill (2007-11-01 12:07) [1]

Randomize +F1

← →
Eraser © (2007-11-01 12:12) [2]

randomrange

← →
Palladin © (2007-11-01 12:13) [3]

> inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+".
> html"

IntToStr(Random(9000)+1000)

← →
Skyle © (2007-11-01 12:21) [4]

Всё равно в [0] ошибка, так что лучше воспользоваться тем, что советуют.

← →
novill (2007-11-01 12:24) [5]

> [3] Palladin © (01.11.07 12:13)

У автора отсутствуют числа содержащие девятки, но присутствуют четырехсимвольные последовательности с лидирующими нулями...

← →
Правильный_Вася (2007-11-01 12:56) [6]

> были абсолютно разные

абсолютно не будет
могут случайно и повториться

← →
DrPass © (2007-11-01 12:57) [7]

> У автора отсутствуют числа содержащие девятки, но присутствуют
> четырехсимвольные последовательности с лидирующими нулями.
> ..

Не важно. Лишь бы автору нравилось

> генерирует он шикарно...

← →
barakuda (2007-11-01 12:59) [8]

ничего не помогает

попробывал так... но первое число всегда повторяется... все последующие разные
begin rec.Lines.LoadFromFile("page.html"); rec.Text:=ReplaceStr(rec.Text,"<text>", chto); rec.Lines.SaveToFile(inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+".html"); DecodeTime(now, hours, mins, secs, milliSecs); RandSeed := milliSecs; end;

← →
barakuda (2007-11-01 13:06) [9]

проблема решилась.... после внимательного прочтения документации

Randomize; rec.Lines.LoadFromFile("page.html"); rec.Text:=ReplaceStr(rec.Text,"<text>", chto); rec.Lines.SaveToFile(inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+inttostr(Random(9))+".html");

Всем спасибо.... особенно novill

> novill (01.11.07 12:24) [5]

та без проблемм

Function IntToStrN(n:Integer):String; Begin Result:=IntToStr(n); If n<10 Then Result:="000"+Result Else If n<100 Then Result:="00"+Result Else If n<1000 Then Result:="0"+Result; End; IntToStrN(Random(10000));

Генератор случайных чисел... Найти похожие ветки