unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids;
type
TForm1 =
class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
zaehler: integer;
loginzeit, logoutzeit:
string;
fenster: boolean;
f: TextFile;
implementation
uses Unit2, Unit4;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
FileList: TStringList;
i, j: integer;
begin
fenster:= false;
if fenster = false
then begin
FileList:= TStringList.Create;
FileList.LoadFromFile('
D:\Delphi\De2\Formular2.11\Login.txt');
for j := 0
to FileList.Count - 1
do begin
if form1.Edit2.Text = FileList[j]
then begin
for I := 0
to FileList.Count - 1
do begin
if form1.Edit1.Text = FileList[i]
then
ShowMessage('
Erfolgreich eingelogt');
end;
end;
end;
end else
if fenster = True
then begin
ShowMessage('
Leider falsch. Versuch es bitte nochmal.');
zaehler:= zaehler + 1;
if zaehler >= 3
then begin
Form1.Close;
end;
end;
FileList.Free;
loginzeit:= TimeToStr(now);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Form2.Show;
Form1.Visible:= False;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Form4.Visible:= True;
Form1.Visible:= False;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ShowMessage('
Erfolgreich ausgelogt');
logoutzeit:= TimeToStr(now);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
zaehler:= 0;
Edit1.Text:= '
';
Edit2.Text:= '
';
end;
end.