|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
03.03.2007, 06:08 | #11 |
Форумчанин
Регистрация: 20.12.2006
Сообщений: 135
|
begin
randomize; edit1.text:= (inttostr(random(1849845494))); end;
writeln('Hello Dude!!!');
Последний раз редактировалось -=DeS=-; 03.03.2007 в 06:13. |
03.03.2007, 12:55 | #12 |
Форумчанин
Регистрация: 31.12.2006
Сообщений: 114
|
Ну может кто нибудь ответит.
|
03.03.2007, 13:21 | #13 | ||
*
Старожил
Регистрация: 22.11.2006
Сообщений: 9,201
|
Цитата:
Цитата:
Последний раз редактировалось mihali4; 03.03.2007 в 13:25. |
||
03.03.2007, 13:32 | #14 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,501
|
niva622, новый вопрос - новая тема.
randomize; edit1.text:= (inttostr(random(1849845494))); - не подходит. надо так: edit1.text:= (inttostr(random(10))+inttostr(rand om(10))+inttostr(random(10))); и так далее... сделай архив получаемых чисел, и проверяй на повторность. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа-тест в Delphi) скиньте))а то програмку здавать преподу надо,и самой хочется понять Delphi | Верчик | Помощь студентам | 9 | 02.03.2009 17:46 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |