| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ваабще ничего не понимаю, помогите разобраться [D6, Win2k]

Whippi ©   (2002-10-23 10:05:00) 

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

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.


---

Whippi   (2002-10-23 10:55:00) [1]

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

---

Smithson   (2002-10-23 10:35:00) [2]

Edit1.Text := RandomPwd(30);

---

Whippi   (2002-10-23 10:22:00) [3]

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

---

GreatMaster   (2002-10-23 10:14:00) [4]

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

---

sask   (2002-10-23 10:12:00) [5]

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

---

Наверх