Bei Login auf Zugriffsverletzung reagieren ...

Hallo,

Delphi-Quellcode:

			procedure TFormStartseite.BtnAnmeldenClick(Sender: TObject);

...

begin

  Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'p.ini');

  Key := Ini.ReadString('User', EditBenutzer.Text, '');

  if (Key = MD5_Hash2String((HashForString(EditBenutzer.Text + EditKennwort.Text)))) AND (Key <> '') then

  begin

    ShowMessage ('Sie sind angemeldet!')            

    end else

    ShowMessage ('Benutzername und/oder Kennwort falsch!');

    EditBenutzer.SetFocus;

    EditBenutzer.Text := '';

    EditKennwort.Text := '';

Problem:

Bei BtnAnmeldenClick und leeren Feldern EditBenutzer + EditKennwort kommt es zu einer Zugriffsverletzung. Wie läßt sich bitte diese Meldung vermeiden?

markieren

Delphi-Quellcode:

			...

if (EditBenutzer.Text = '') Or (EditKennwort.Text = '') then

ShowMessage('Bitte anmelden');

Exit;

EditBenutzer.SetFocus;

Hab' bereits versucht, diesen Code einzuflicken, aber das funktionierte leider nicht.

Gruß
Lombi

Bei Login auf Zugriffsverletzung reagieren ...

Bei Login auf Zugriffsverletzung reagieren ...

Forumregeln