Gültige eMail-Adresse (TRegExpr)

[chris]

hi,

im Code-Lib Beitrag Gültige EMail Adresse fehlt noch eine ganz interessante Möglichkeit:

Die Verwendung der TRegExpr (Regular Expressions)!


So könnte es aussehen:

Delphi-Quellcode:

uses RegExpr;

function IsEMailValid(eMail: string): boolean;
begin
  Result := ExecRegExpr('[\w\d\-\.]+@[\w\d\-]+(\.[\w\d\-]+)+', eMail)
end;

[edit]danke steve, habe nochmal alles getestet - nun sollte es einwandfrei funktionieren[/edit]

[edit=Chakotay1308]Source befindet sich jetzt hier in der Code-Library. Mfg, Chakotay1308[/edit]