Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - kleines Problem bei Passwortabfrage!!


ForzaFCH - Do 13.05.04 11:44
Titel: kleines Problem bei Passwortabfrage!!
Und zwar, ich wollte ein programm erstellen wo man sich einloggen muss um ins hauptformular zu kommen.

Soweit so gut, benutzer kann sich seinem namen in der combobox (name) auswählen muss dazu das passwort in ein edit feld eingeben. problem dabei er soll sich mit mindestens 5 Zeichen anmelden ansonsten soll er fehlermeldung im edit feld anzeigen


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
 
var pas: string;

begin
  If name.ItemIndex = 0
    then 
      pas := 'passwort'
If passwort.Text = pas
   then begin
      Hauptform.Show;
      PasswortForm.Hide;
If passwort.??? < 4   // Was muss ich ihm hier sagen, das er die fehlermeldung bringt?
   then
     Passwort.text := 'fehlermeldung';


Bitte um schnellst mögliche hilfe!


Danke im voraus


maxk - Do 13.05.04 11:48
Ich glaube du suchst folgendes:if length(passwort.text)<4 then ...


ForzaFCH - Do 13.05.04 12:25
Dat haut auch net hin, aber ich hab auch ein stück vom code vergessen

das ende

Delphi-Quelltext 
1:
2:
3:
 
end
else
Passwort.text := 'falsches Passwort';


ist zwar sinnlos aber wollte es nur mal ausprobieren!!


elimhren - Do 13.05.04 13:45

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
 
var pas : String; 
begin 
  If name.ItemIndex = 0 then pas := 'passwort' 
  if (passwort.Text <> pas) or (length(passwort.text) < 5) then ShowMessage('passwort ungültig oder zu kurz') else
    begin
      Hauptform.Show; 
      PasswortForm.Hide; 
    end;
end;


nicht getestet, sollt aber gehen
grüße
johannes


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!