Quellcode Überprüfung (For Schleifen Fehler)

[haentschman]

Zitat:

Funktioniert aber immer noch nicht!

...was passiert deiner Meinung nach falsch?

Bitte Delphi Tags nicht Code Tags. Der Button mit dem Helm... wir lernen das noch...

ähhhmmmm....
s_benutzername: TEdit; s_benutzername.Caption = benutzername ...du mußt schon .Text auswerten sonst vergleichst du die Caption. Obwohl... im Delphi hat TEdit kein Caption. Im Lazarus?

auch im Lazarus gibt es kein Caption: http://lazarus-ccr.sourceforge.net/d...rls/tedit.html...compiliert das?

[atzornf]

Delphi-Quellcode:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls, Unit2;

type

  { Tform_benutzerlogin }

  Tform_benutzerlogin = class(TForm)
    anmelden_knopf: TButton;
    beenden_knopf: TButton;
    ausgabe_fehlermeldung: TLabel;
    s_benutzername: TEdit;
    s_passwort: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure anmelden_knopfClick(Sender: TObject);
    procedure beenden_knopfClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { private declarations }
  public
    login_counter : integer;
  end;

var
  form_benutzerlogin: Tform_benutzerlogin;

implementation

{$R *.lfm}

{ Tform_benutzerlogin }

procedure Tform_benutzerlogin.FormShow(Sender: TObject);
begin

form_benutzerlogin.Caption := 'Scylla V.1.0 - Login';
s_benutzername.Caption := '';
s_passwort.Caption := '';
ausgabe_fehlermeldung.Caption := '';
anmelden_knopf.Caption := 'Anmelden';
beenden_knopf.Caption := 'Beenden';

end;

procedure Tform_benutzerlogin.beenden_knopfClick(Sender: TObject);
begin

close;

end;

procedure Tform_benutzerlogin.anmelden_knopfClick(Sender: TObject);

var
benutzername : string;
passwort : string;

begin

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

if login_counter < 3
   then begin
        if (s_benutzername.Caption = benutzername) and (s_passwort.Caption = passwort)
           then begin
                form_hauptmenue.Show;
                end
                 else begin
                      ausgabe_fehlermeldung.Caption := 'Falsche Eingabe';
                      s_benutzername.Clear;
                      s_passwort.Clear;
                      login_counter := login_counter + 1;
                      end;
        end;

if login_counter >= 3
   then begin
        form_benutzerlogin.Close;
        end;

end;
end.

Vielen Dank für eure Hilfe!
Benutzerkontrolle funktioniert!

Eventuell könnt Ihr mir noch bei einem Thema helfen:

Ich habe zwei Formulare. Sofern ein Benutzer auf der zweiten Form auf Beenden drückt soll sich auch ebenfalls Form1 schließen.

Mein Quellcode:

Delphi-Quellcode:

procedure Tform_hauptmenue.beenden_knopfClick(Sender: TObject);
begin

close;
form_benutzerlogin.Close;

end;

Fehlercode im Anhang!

[TBx]

Neues Thema --> neuer Thread!