Delphi-PRAXiS - Delphi Gültige eMail-Adresse (TRegExpr)

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]