
09.08.2009, 11:23
|
|
Познающий
Регистрация: 02.06.2009
Сообщений: 67
Провел на форуме: 237284
Репутация:
54
|
|
mailbrush, напиши в OnCreate строку:
И еще вместо твоей функции SubStr я бы написал так:
Код:
result:=result+symbols[Random(Length(symbols)-1)+1];
Последний раз редактировалось Nullsleep; 09.08.2009 в 11:28..
|
|
|