Hi,
wie kriege ich es hin, Delphi dazu zu bringen, daß er nach einer falschen Passwort Eingabe eine Fehlermeldung bringt und danach eine Korrektur zuläßt ?
Delphi-Quellcode:
with pFIBBackupService1 do begin
weiter := false;
repeat
try
ServerName := ServerE.Text;
LoginPrompt := False;
Params.Add('user_name='+UserE.Text);
Params.Add('password='+PasswordE.Text);
Active := True;
weiter := true;
except
showmessage ('KEINE ZUGRIFFSRECHTE !');
Params.Add('user_name='+UserE.Text);
Params.Clear;
PasswordE.Text := '';
PasswordE.SetFocus;
weiter := false;
end;
showmessage ('ÜÜÜ');
until weiter;
Mit dem Code erzeuge ich nur beim einmaligen falschen eingeben eine Endlosschleife. Bis zu den ÜÜÜ komme ich, aber dann nur noch in den except-Teil.