Текущий архив: 2002.11.04;
Скачать: CL | DM;

Вниз

Ваабще ничего не понимаю, помогите разобраться   Найти похожие ветки 

← →
Whippi ©   (2002-10-23 10:05) [0]

Нашел в интернете пример как сгенерировать пароль, начал разбираться, но подвис на простом вопросе, как вывести результат, чтоб он виден стал. Все перепробовал ничего не получается. Подскажите как?

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Randomize;
end;
function RandomPwd(PWLen: integer):string;
const StrTable: string =
"!#$%&/()=?@<>|{[]}\*~+#;:.-_" +
"ABCDEFGHIJKLMabcdefghijklm" +
"0123456789" +
"NOPQRSTUVWXYZnopqrstuvwxyz";
var
N, K, X, Y: integer;
begin
if (PWlen > Length(StrTable)) then K := Length(StrTable)-1
else K := PWLen;
SetLength(result, K);
Y := Length(StrTable);
N := 0;
while N < K do begin
X := Random(Y) + 1;
if (pos(StrTable[X], result) = 0) then begin
inc(N);
Result[N] := StrTable[X];
end;
end;

end;
procedure TForm1.Button1Click(Sender: TObject);
var
cPwd: string;
begin
cPwd:=RandomPwd(30);
end;

end.


---

← →
sask ©   (2002-10-23 10:12) [1]

а ShowMessage(cPwd) не помогает?

---

← →
GreatMaster ©   (2002-10-23 10:14) [2]

А чтобы он стал виден, нужно прочитать над ним страшное заклинание в полночь между 5-й и 6-й лунами года змеи...
или просто написать
ShowMessage("Вот он, подлый тип: "+RandomPwd(30)); гыгы

---

← →
Whippi ©   (2002-10-23 10:22) [3]

Спасибо, за совет :))
Заклинание подошло, но хотелось бы не только увидеть результат, но и возможность скопировать его в буфер обменаю, т.е например вывести результат в Edit

---

← →
Smithson ©   (2002-10-23 10:35) [4]

Edit1.Text := RandomPwd(30);

---

← →
Whippi ©   (2002-10-23 10:55) [5]

Блиииииииииин, чееееееееееерт, бревна то я и не приметил :)))
спасибо

---

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

Текущий архив: 2002.11.04;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.014 c