Hallo Leute,
habe ein Problem mit meinem Quellcode. Habe einen Fehler drin, den ich leider nicht erkenne.
Hier mein Quellcode:
Delphi-Quellcode:
procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);
var
benutzername : string;
passwort : string;
i : integer;
zaehler : integer;
begin
benutzername := 'root';
passwort := 'dHuz76Tr%4f1B';
i := 0;
zaehler := 1;
for i := 1 to 5 do begin
if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort)
then begin
s_benutzername.Clear;
s_passwort.Clear;
ausgabe_fehlermeldung.Caption := '';
form_hauptmenue.Show;
form_benutzerlogin.Visible := False
end
else begin
s_benutzername.Clear;
s_passwort.Clear;
end;
zaehler := zaehler + 1;
ausgabe_fehlermeldung.Caption := Inttostr(zaehler);
end;
end;
Bei mir springt der Zähler aus irgend einem Grund direkt von 0 auf 6.
Wäre super, wenn Ihr mir helfen würdet.