sorry war der falsche. hier ist der richtige
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.