GhostOnline
24.04.2010, 16:05
В общем понадобилось мне генерировать такие.
Нашел сайт http://onlinetoplist.com/nick.htm
Понравилось как генерирует, и чтобы использовать такое в программе решил переложить javascript функцию на дельфи.
Подумал может кому пригодится, тем более здесь уже видел такой вопрос.
Итак, в функцию передается число 1, 2 или 3.
При параметре равном 1 генерируется имя и фамилия.
При 2 и 3 только ник.
Пример использования:
uses RandomLogin;
................................
.............................
for i := 1 to 100 do
Memo1.Lines.Append(RandomNick(2));
Примеры результатов:
Nijora Dazilkree Zudal Magis Mogar Fenos Vimuro Moogumuro Majinn Gardakazahn Vibar Julrajas Gardara Kigasar Motilar Akinorisar Mokree Zulukazahn Faerisar Tojatilar Akinoshura Tojarn Tok Maukazahn Shakazahn Dat Melabar Turamar Kigasida Moogulabar Meztinos Gurn Mugore
Сам модуль : http://slil.ru/29013192
Можно также в конце строки добавлять случайные числа, но это уже на ваше усмотрение
PS Не забываем перед использованием в программе Randomize вызывать
Нашел сайт http://onlinetoplist.com/nick.htm
Понравилось как генерирует, и чтобы использовать такое в программе решил переложить javascript функцию на дельфи.
Подумал может кому пригодится, тем более здесь уже видел такой вопрос.
Итак, в функцию передается число 1, 2 или 3.
При параметре равном 1 генерируется имя и фамилия.
При 2 и 3 только ник.
Пример использования:
uses RandomLogin;
................................
.............................
for i := 1 to 100 do
Memo1.Lines.Append(RandomNick(2));
Примеры результатов:
Nijora Dazilkree Zudal Magis Mogar Fenos Vimuro Moogumuro Majinn Gardakazahn Vibar Julrajas Gardara Kigasar Motilar Akinorisar Mokree Zulukazahn Faerisar Tojatilar Akinoshura Tojarn Tok Maukazahn Shakazahn Dat Melabar Turamar Kigasida Moogulabar Meztinos Gurn Mugore
Сам модуль : http://slil.ru/29013192
Можно также в конце строки добавлять случайные числа, но это уже на ваше усмотрение
PS Не забываем перед использованием в программе Randomize вызывать