Quellcode Überprüfung (For Schleifen Fehler)

[atzornf]

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.

[haentschman]

Hallo und willkommen hier...

Bitte verpacke bitte den Delphi Code formatiert in Delphi Code Tags. Das ist der Button mit dem Helm...

Zum Thema:
Direkt auf 6 bedeutet if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort) then ist nicht True. Dadurch wird 5 mal s_benutzername leergemacht und der Zähler steht auf 6... logisch oder? Beim ersten Mal könntest du ja noch Glück haben das Benutzername und Paßwort paßt um in die erste Bedingung reinzukommen. Aber spätestens mit dem 1. Leeren wird die Bedingung nie wieder True sein können.

Erkläre mal den Ablauf den du vorhast... Das kann so vom logischen Ablauf nicht funktionieren. Wo für ist dieses Programm? Für externe Kunden? Dann solltest du dich mit "nicht einkompilieren" von Benutzernamen und Passwörtern beschäftigen.

[Luckie]

Wenn (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort) false ist, müssten auch die Eingabefelder geleert werden. Trifft das zu?

Ansonsten, dass eine Schleife rückwärts läuft ist normal. Siehe dazu: http://michael-puff.de/Programmierun...ckwaerts.shtml

[haentschman]

Zitat:

Ansonsten, dass eine Schleife rückwärts läuft ist normal

Seine Zählvariable zaehler ist 6... I könnte maximal 5 haben...

[Luckie]

Muss nicht. Nach verlassen der Schleife ist der Wert der Zählvariablen unbestimmt. Stellt sich die Frage, wo er feststellt, dass die Zählvariable 6 ist.

Außerdem wollte ich mal wieder einen Link zu meiner Homepage unterbringen.

[haentschman]

Zitat:

Außerdem wollte ich mal wieder einen Link zu meiner Homepage unterbringen.

Schön das wir drüber gesprochen haben...

Zitat:

Nach verlassen der Schleife ist der Wert der Zählvariablen unbestimmt.

...richtig, aber dannn ist die aber bestimmt nicht immer exakt 6.

[Luckie]

Er kann nur exakt sein. Da es sich um einen Integer handelt.

Und wie so sollte er nicht (zufällig) 6 sein? Wenn der Ablauf im Code immer gleich ist, sind auch die Speicheradressen um Adressraum des Prozesses wohl gleich. Und wie oft hatten wir schon die Situation, dass es zufällig bisher immer funktioniert hat, aber eben nur zufällig. Eine kleine Änderung und der Code, der zufällig funktioniert hat, funktioniert nicht mehr.

[atzornf]

Habe meinen Quellcode mal überarbeitet:

Delphi-Quellcode:

procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);

var
benutzername : string;
passwort : string;
i : integer;
zaehler : integer;

begin

benutzername := 'root';
passwort := 'dHuz76Tr%4f1B';

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;
end;

Ich würde gerne eine Benutzerabfrage schreiben, welche die vorgegebenen Variablen benutzername/passwort überprüft.
Sofern die Eingabe des Benutzers korrekt ist, soll sich ein weiteres Fenster öffnen.
Sofern die Benutzereingabe falsch ist, sollen sich die Eingabefelder leeren und eine Labelbeschriftung mit Falscher Eingabe erzeugen.--> das ganze soll 3 mal von statten gehen, ansonsten soll sich die Anwendung schließen.

[haentschman]

@atzornf: Die Delphi Tags üben wir noch...

Zitat:

Sofern die Benutzereingabe falsch ist, sollen sich die Eingabefelder leeren und eine Labelbeschriftung mit Falscher Eingabe erzeugen.--> das ganze soll 3 mal von statten gehen

Dann mußt du dem Benutzer auch die Möglichkeit geben das er 3 x auf den Button klicken kann. Merkst du was? Es macht keinen Sinn innerhalb der Klick procedure die Schleife laufen zu lassen. Die Fehlversuche mußt du dir außerhalb der procedure z.B. als privates Feld merken. Innerhalb der Klick procedure prüfst du ob die Anzahl der Fehlversuche kleiner als dein MAX ist und prüfst die Kombination. Ansonsten wird das Fenster geschlossen wie auch bei erfolgreicher Prüfung.

[atzornf]

@haentschman

Programmiere heute zum ersten mal mit Delphi.
Wäre super, wenn du mir helfen würdest.

Wäre auch mal interessant zu wissen, was ich falsch gemacht habe.