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.