Скачать: CL | DM;

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

← →
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

---

← →
Palladin ©   (2007-11-01 13:26) [10]

> 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));

---

← →
Leonid Troyanovsky ©   (2007-11-01 13:57) [11]

> Palladin ©   (01.11.07 13:26) [10]

> IntToStrN(Random(10000));

Format("%4.4d", [Random(10000)])

--
Regards, LVT.

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.018 c