Einzelnen Beitrag anzeigen

mcrool2010

Registriert seit: 3. Dez 2010
7 Beiträge
 
#1

FREE PASCAL- habe ein Problem-Passworrt Programm

  Alt 3. Dez 2010, 20:50
Hallo könnte mir jemand helfen?
also ich wollte, dass wenn man auf ein OK button klickt und das, was in der Edit Box mit dem übereinstimmt, was ich vor her als "Passwort" eingegeben hab man auf ein neues Fenster kommt, wenn es falsch ist auf ein anderes. Wie mach ich das? ich hab ein Fehler drin aber weiß nicht was?


hier mein Code:´
Code:
procedure TForm1.Button1Click(Sender: TObject);
begin

if Edit1.text ='passwort123'
 then Form1.Hide;
  Form2.Show;
else if Edit.Text ='passwort1234'
then Form1.Hide;
  Form3.Show;
end;
  Mit Zitat antworten Zitat