1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:

unit ULogin;  

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

 
type  
  TFLogin = class(TForm)  
    PLogin: TPanel;  
    EUsername: TEdit;  
    EPasswort: TEdit;  
    BLogin: TButton;  
    LUsername: TLabel;  
    LRein: TLabel;  
    LPasswort: TLabel;  
    BBeenden: TButton;  
    procedure BBeendenClick(Sender: TObject);  
    procedure BLoginClick(Sender: TObject);  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  FLogin: TFLogin;  

 
implementation  

 
uses UOberflaeche;  

 
{$R *.dfm}  

 
procedure TFLogin.BBeendenClick(Sender: TObject);  
begin  
  MessageBox('Wollen Sie das Programm wirklich beenden?', 'Beenden?', [MB_OKCANCEL]);  
end;  

 
procedure TFLogin.BLoginClick(Sender: TObject);  
type    
  TLoginData = record    
    Username: String;    
    Password: String;    
  end;    
const  
  LoginData: array[0..2] of TLoginData = (  
    (Username : 'Bernie & Eert'; Password : '16532'),  
    (Username : 'Test'; Password : 'Pinselqäuler'),  
    (Username : 'Jelox'; Password : '')  
    );  
var  
  I: Integer;    
  CanLogin: Boolean;    
begin    
  CanLogin := False;  

 
  for I := Low(LoginData) to High(LoginData) do  
    if EUsername.Text = LoginData[I].Username then  
    begin  
      if EPasswort.Text = LoginData[I].Password then  
        CanLogin := True;  
      Break;  
    end;  

 
 if CanLogin then  
  begin  
   FLogin := TFLogin.Create(Self);  
   FOberflaeche.Show  
  end    
   else  
    LRein.Caption := 'Ungültiger Benutzername oder ungültiges Passwort!';  
end;  

 
end.                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

unit UOberflaeche;  

 
interface  

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

 
type  
  TFOberflaeche = class(TForm)  
    LTest: TLabel;  
    procedure FormCreate(Sender: TObject);  
  private  
    { Private-Deklarationen }  
  public  
    { Public-Deklarationen }  
  end;  

 
var  
  FOberflaeche: TFOberflaeche;  

 
implementation  

 
uses ULogin;  
{$R *.dfm}  

 
procedure TFOberflaeche.FormCreate(Sender: TObject);  
begin  
begin  
  if FLogin.EUsername.Text = 'Jelox' then  
    begin  
    LTest.Caption:= 'Hallo!';  
  end;  
end;  
end;  

 
end.                    

1:
2:
3:
4:
5:
6:
7:
8:

procedure TF*****.TRechtTimer(Sender: TObject);
begin
  if POberflaeche.Visible = true then begin
    if EUsername = 'Jelox' then begin
      LTest.Caption:= EUsername.Text;
    end;
  end;
end;