13.08.2009, 13:12
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Вот простой примерчик, все работает на ура
Код:
procedure TForm1.Button1Click(Sender: TObject);
var s: string;
i: byte;
begin
caption:='';
Randomize;
s:='abcd';
for i:=1 to 10 do
caption:=caption+ s[Random(length(s))+1];
end;
Попробовал ваш пример у себя - тоже все нормально. незнаю, почему у вас такие результаты получились... Может он выполняеться по тайперу с интервалом 1 ?? Рандом ведь от времени зависит.
П.С. у вас в коде нужно +1 добавить в рандом. Без него длина строки разная каждый раз. Рандом ведь и 0 возвращяет, а в строке символа с индексом 0 нету.
Последний раз редактировалось =Zeus=; 13.08.2009 в 13:39..
|
|
|