Генерируем человеческие ники[Delphi]

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by GhostOnline, 24 Apr 2010.

  1. GhostOnline

    GhostOnline Active Member

    Joined:
    20 Dec 2008
    Messages:
    723
    Likes Received:
    110
    Reputations:
    22
    В общем понадобилось мне генерировать такие.
    Нашел сайт 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));
    Примеры результатов:
    PHP:
    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 вызывать
     
    #1 GhostOnline, 24 Apr 2010
    Last edited: 24 Apr 2010
    3 people like this.