Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Генератор паролей помогите разобраться

Johnnnnnnn © (2007-08-16 15:33:00)
есть вот такая функция, чего я от нее жду.
при присвоении переменной strinгового типа parol:=paroli(7, 'qwertyuiopasdfghjklzxcvbnm1234567890');
она должна генерировать каждый раз новую комбинацию все бы хорошо но при каждом новом запуске приложения она выдает одну и туже последовательность сгенерированных значений
подскажите что сюда добавить или что поменять?

function paroli(skolko:integer; simvoli:string) : string;
var
e:string;
a:integer;
begin
a:=0;
for a:=0 to skolko-1 do
begin
e:=e+simvoli[random(length(simvoli))+1];
end;
result:=e;
end;

Спасибо!

Alien1769 (2007-08-16 19:57:00) [1]

> Randomize должен вызываться один раз при старте программы.

Было ж сказано в секцию инициализации модуля

Johnnnnnnnn (2007-08-16 17:27:00) [2]
вобщето даже не в тело а в событие onclick кнопки тоесть будет теперь вызываться при каждом нажатии кнопки ето ниче?
кнопка нажиматься будет несколько раз за выполнение программы?

Johnnnnnnnn (2007-08-16 17:23:00) [3]
перекинул в тело а в чем с ним проблема если его каждый раз вызывать? интиресно просто так вроди ниче работает

Anatoly Podgoretsky (2007-08-16 15:59:00) [4]
> Johnnnnnnnn (16.08.2007 15:43:03) [3]

А вот это ни в коем случае не делать, иначе за что боролись, на то и напоролись.
Randomize должен вызываться один раз при старте программы.

Johnnnnnnnn (2007-08-16 15:43:00) [5]
function paroli(skolko:integer; simvoli:string) : string;
var
e:string;
a:integer;
begin
Randomize;
a:=0;
for a:=0 to skolko-1 do
begin
e:=e+simvoli[random(length(simvoli))+1];
end;
result:=e;
end;

Спасибо помогло!

Сергей М. (2007-08-16 15:36:00) [6]
см. Randomize

MBo (2007-08-16 15:36:00) [7]
Randomize выполни один раз при старте программы
об этом написано в справке по Random

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »