|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.05.2008, 10:27 | #1 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
Random в Delphi
Добрый день, я новичок, и особо с программированием не сталкиваюсь, но мне нужно сделать одну небольшую штуку. Собственно отсюда и вопрос:
У есть поле Edit1, нужно сделать так чтоб по нажатию кнопки, на поле Edit1 выводились символы (буквы и цифры) на рандом (к примеру 5 символов)? Заранее очень благодарен за помощь |
08.05.2008, 10:54 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Код:
I'm learning to live...
|
08.05.2008, 10:58 | #3 |
Участник клуба
Регистрация: 21.11.2007
Сообщений: 1,690
|
Код:
|
08.05.2008, 11:06 | #4 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
А можно чтоб эти символы были только из Латинские, и цифры, без всяких знаков и непонятных букв ?))) (типо !,$<# и тд)?
|
08.05.2008, 11:26 | #5 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
использовать список допустимых символов
const symbols='qwertyuiopzxc'; for i:=1 to 5 do Edit1.Text:=Edit1.Text+symbols[random(length(symbils))];
программа — запись алгоритма на языке понятном транслятору
|
08.05.2008, 11:31 | #6 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
Теперь он при нажатии кнопки постоянно записывает текст в Edit1, не стирая предидущего ((
|
08.05.2008, 12:20 | #7 |
Веб-разработчик
Форумчанин
Регистрация: 16.01.2008
Сообщений: 451
|
сделай кнопку очистки или выпадающее меню edit1.clear
Я ваш новый друг, смиритесь!
|
08.05.2008, 12:24 | #9 |
Участник клуба
Регистрация: 28.03.2007
Сообщений: 1,814
|
Не забываем Randomize
|
08.05.2008, 12:41 | #10 |
Пользователь
Регистрация: 08.05.2008
Сообщений: 42
|
Напиши плиз код как это должно выглядеть, с 5 рандом символами (латин алф.) и с затиранием старого текста новым
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Random | Febreze | Общие вопросы Delphi | 2 | 28.04.2008 14:17 |
random | Forrest Gamp | Общие вопросы C/C++ | 4 | 11.02.2008 09:46 |
Random -10 +10 | Veiron | Общие вопросы Delphi | 1 | 23.01.2008 17:23 |
Random | Constellation | БД в Delphi | 2 | 10.01.2008 21:37 |
random | Sanek_ntsk | Общие вопросы Delphi | 8 | 17.12.2007 21:54 |