Форум: "Основная";
Текущий архив: 2002.11.04;
Скачать: [xml.tar.bz2];
ВнизВаабще ничего не понимаю, помогите разобраться Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c