Registriert seit: 6. Feb 2012
Ort: Deutschland
272 Beiträge
Delphi XE7 Professional
|
AW: Ptroblem bei meinem Loginsystem & der Hauptunit
24. Feb 2012, 08:31
Moin...
beim Ablauf der Versuche machst du es doch auch. Warum nicht auch bei richtigem Paßwort ?
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
begin
if (edit1.Text= pwd) and (edit2.Text= usr) then
Caption:=('Correct password');
Close;
else
Caption:=('Wrong password');
trys := trys-1;
if trys=0 then Close;
end;
- "Form3" entfernt
- Close hinzugefügt
Versteh nicht so wirklich was du mir damit sagen willst...
|