Simpel Password funktion....

forresten skal man trykke på button1 for at panel1 bliver visible eller panel 2 visible

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Const
  id = 'Admin';
  pw = '1234';
  re = 'sl43';

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
edit2.PasswordChar := #42;
edit3.PasswordChar := #42;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.text = id) and (edit2.Text = pw) and (edit3.text = re) then
    form2.showmodal // brug et panel1 eller andet i stedet for
  else
    Showmessage('Forkert brugernavn eller Adgangskode');
    //brug et panel2 eller andet i stedet for
end;

end.

prodoc> Blot til info:
Når man sammenligner i Delphi, bruger man lighedstegn (=). Når man skal give en variabel en værdi, bruger man :=
Altså:

if edit1.text = "password" then
  panel1.visible:=true
else
  panel2.visible:=true;

hmm.. en anden løsning:

var
  password : string;
begin
  password := 'dinadgangskode';
  if edit1.text = password then
  begin
    panel1.visible := true;
  end
  else
  begin
    panel2.visible := false;
  end;
end;

yousif: Man kunne jo også gøre sådan:

type
  TMyPassword = class
    Password: String;
    constructor Create;
  end;

constructor TMyPassword.Create;
begin
  Password := 'dinadngagskode';
end;

var
  MyPassword: TMyPassword;

begin
  MyPassword := TMyPassword.Create;
  if Edit1.Text = MyPassword.Password then
  begin
    Panel1.Visible := True;
  end
  else
  begin
    Panel2.Visible := True;
  end;
end;


... eller blot ...


begin
  Panel1.Visible := Edit1.Text = 'dinadgangskode';
  Panel2.Visible := not Panel1.Visible;
end;


«¦~Þ

hmm.. en sjov en:

indsæt 4 edit's, en button og 2 panel's

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.Text = 't') and (edit2.Text = 'e') and (edit3.Text = 's') and (edit4.Text = 't') then
  panel1.Visible := true
  else
  panel2.Visible := true;
end;

Hmm.. En endnu sjovere : (1 edit, 1 button, 2 panels

const
  Password = 'coolenough';
var
  I: Integer;
  B: Byte;
  S: string;
  Fail: Boolean;
begin
  S := edit1.Text;
  Fail := Length(S) <> Length(Password);
  if not Fail then
    for I := 1 to Length(S) do
    begin
      B := Ord(S[I]);
      if ((((B * 5) + 12 - B) div 4) - 3) - Ord(password[I]) <> 0 then
        Fail := True;
    end;
  Panel1.Visible := not Fail;
  Panel2.Visible := Fail;
end;

heh :)

cms>hvor længe kan man blive ved?? ..

SJOV!!

1 button (default = true) og 1 edit:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if edit1.text = 'adgangskode' then
  panel1.visible := true
  else
  panel2.visible := true;
end;

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if Button1.Top < 6 then
    Button1.Top := 100
  else
    Button1.Top := Button1.Top - 5;
  if Button1.Left < 6 then
    Button1.Left := 100
  else
    Button1.Left := Button1.Left - 5;
end;


Nu har jeg puttet en idiot sikring på.. man skal trykke på enter for at komme ind.. man kan ikke fange button1 med musen!! hehe..

LOL =)

heh tak allesammen, men trods jeres farvefulde forslag/svar tror jeg at yousif kom først med et kort svar