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?
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