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

← →
Johnnnnnnn (2007-08-16 15:33) [0]

есть вот такая функция, чего я от нее жду.
при присвоении переменной 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;

Спасибо!

← →
Сергей М. © (2007-08-16 15:36) [1]

см. Randomize

← →
MBo © (2007-08-16 15:36) [2]

Randomize выполни один раз при старте программы
об этом написано в справке по Random

← →
Johnnnnnnnn (2007-08-16 15:43) [3]

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;

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

← →
Anatoly Podgoretsky © (2007-08-16 15:59) [4]

> Johnnnnnnnn (16.08.2007 15:43:03) [3]

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

← →
Johnnnnnnnn (2007-08-16 17:23) [5]

перекинул в тело а в чем с ним проблема если его каждый раз вызывать? интиресно просто так вроди ниче работает

← →
Johnnnnnnnn (2007-08-16 17:27) [6]

вобщето даже не в тело а в событие onclick кнопки тоесть будет теперь вызываться при каждом нажатии кнопки ето ниче?
кнопка нажиматься будет несколько раз за выполнение программы?

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

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

Генератор паролей помогите разобраться Найти похожие ветки