|
|
|
Регистрация Восстановить пароль |
Повторная активизация 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 |
