Показать сообщение отдельно

  #1  
Старый 09.08.2009, 11:23
Nullsleep
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме:
237284

Репутация: 54
По умолчанию

mailbrush, напиши в OnCreate строку:
Код:
  Randomize;
И еще вместо твоей функции SubStr я бы написал так:
Код:
  result:=result+symbols[Random(Length(symbols)-1)+1];

Последний раз редактировалось Nullsleep; 09.08.2009 в 11:28..
 
Ответить с цитированием