генерация паролей

[ozhjog]

пешу генератор паролей всего 30символов тока цифры вот код

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function rand(param:integer):integer;
implementation

{$R *.dfm}

function rand(param:integer):integer;
Var
I:Integer;
S: String;
Begin
for I:=1 to param do begin
randomize;
s:= s+inttostr(random(9));
end;
result:=StrToInt(S);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := IntToStr(rand(5));
Randomize;
end;

end.


но выдаёт ошибкуподскажите пж как сделать ?=)заранее спс

[Simply-Art]

У меня если честно ошибки не выдаёт. Но попробуй убрать randomize; из функции и Button1Click а поставь его в FormCreate этого будет достаточно.
И ещё лучше исправить код функции

function rand(param:integer):integer;
Var
I:Integer;
S: String;
Begin
if param>1 then {это для того чтобы цикл правельно выполнялся}
for I:=1 to param do s:= s+inttostr(random(9));
result:=StrToInt(S);
end;

[Und3rground]

function rand(param:integer):integer;
Var
I:Integer;
S: String;
Begin
for I:=1 to param do begin
randomize;
s:= s+inttostr(random(9));
end;
result:=StrToInt(S);
end;

Попробуй перд входом в цикл обнулять строку...

[Simply-Art]

Нет смысла переменная не глобальная