13.08.2009, 09:32
|
|
Познавший АНТИЧАТ
Регистрация: 24.06.2008
Сообщений: 1,996
С нами:
9410786
Репутация:
2731
|
|
Надо написать генератор рандумной строки из даных символов. Я сделал это
Код:
function Rand(count,symbols: string): string;
var
i: integer;
begin
Randomize;
for i:=1 to StrToInt(count) do
begin
result:=result+symbols[Random(Length(symbols))]);
Application.ProcessMessages;
end;
end;
Но трабла в том, что генерит он не совсем рандумно. Пример: http://img44.imageshack.us/img44/7493/11637706.png
Я специально поставил только цифры, чтобы было лучше видно.
Как решить это?
PS: Процедуру Randomize пробовал засовывать в OnCreate - не помогло. |
|
|