Delphi-Quellcode:
for i := 1 to 3 do
begin
if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort) then
begin
s_benutzername.Clear;
s_passwort.Clear;
form_hauptmenue.Show;
end
else
begin
s_benutzername.Clear;
s_passwort.Clear;
ausgabe_fehlermeldung.Caption := 'Falsche Eingabe';
zaehler := i + 1;
end;
if zaehler >= 6 then
begin
form_benutzerlogin.Close;
end;
end;
Ich habe es mal sauber formatiert. Vielleicht siehst du dann deinen Fehler.
Davon mal abgesehen. Lokale Variablen werden nicht initialisiert.
zaehler enthält also einen zufälligen Wert. Und was soll das
zaehler := i + 1;
?