Скачать: CL | DM;

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

← →
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 кнопки тоесть будет теперь вызываться при каждом нажатии кнопки ето ниче?
кнопка нажиматься будет несколько раз за выполнение программы?

---

← →
Alien1769 ©   (2007-08-16 19:57) [7]

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c