Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

28th
Апр

Функция генерации ников

Posted by Chas under Delphi

нужно чтобы через функцию генерировало а не из .txt. Вобщем нужная функция генерирования ников/логинов. 10 букв + 3-4 цифры в каждом логине.

FleXik

function RandomName(randomname: string):string;

const

h_fnpre : array[0..122] of string=('Te','Ni','Nila','Andro','Androma','Sha',

'Ara','Ma','Mana','La','Landa','Do','Dori','Pe','Peri','Conju','Co','Fo','Fordre',

'Da','Dala','Ke','Kele','Gra','Grani','Jo','Sa','Mala','Ga','Gavi','Gavinra','Mo',

'Morlu','Aga','Agama','Ba','Balla','Ballado','Za','Ari','Ariu','Au','Auri','Bra',

'Ka','Bu','Buza','Coi','Bo','Mu','Muni','Tho','Thorga','Ke','Gri','Bu','Buri','Hu',

'Hugi','Tho','Thordi','Ba','Bandi','Ga','Bea','Beaze','Mo','Modi','Ma','Malo',

'Gholbi','Gho','Da','Dagda','Nua','Nuada','Oghma','Ce','Centri','Cere','Ce','Ka',

'Kathri','Ado','Adora','Mora','Mo','Fe','Felo','Ana','Anara','Kera','Mave','Dela',

'Mira','Theta','Tygra','Adrie','Diana','Alsa','Mari','Shali','Sira','Sai','Saithi',

'Mala','Kiri','Ana','Anaya','Felha','Drela','Corda','Nalme','Na','Um','Ian','Opi',

'Lai','Ygg','Mne','Ishn','Kula','Yuni');

h_fnsuf : array[0..88] of string = ('nn','las','math','th','ath','zar','ril','ris',

'rus','jurus','dred','rdred','lar','len','nis','rn','ge','lak','nrad','rad','lune',

'kus','ma nd','gamand','llador','dor','dar','nadar','rius','nius','zius','tius',

'sius','wield','helm','zan','tus','bor','nin','rgas','gas','lv','kelv' ,'gelv',

'rim','sida','ginn','grinn','nn','huginn','rdin','ndis','bandis','gar','zel',

'di','ron','rne','lbine','gda','ghma','ntrius','dwyn',' wyn','swyn','thris',

'dora','lore','nara','ra','las','gra','riel','lsa','rin','lis','this','lace','ri',

'naya','rana','lhala','lanim','rdana', 'lmeena','meena','fym','fyn','hara');

var

thefirstname: string;

begin

result := '';

thefirstname := '';

thefirstname := h_fnpre[Random(123)] + h_fnsuf[Random(89)]+inttostr(random(999))+inttostr(random(999));

thefirstname := LowerCase(thefirstname);

result := thefirstname;

end;