Gültige EMail Adresse

[CalganX]

Von den Usern chris und Steve kommt noch folgende Möglichkeit unter Verwendung von regulären Ausdrücken. Eine mögliche Komponente für die Verwendung von regulären Ausdrücken (Delphi bietet von Haus aus dafür keine Möglichkeit) findet man hier.

Delphi-Quellcode:

uses RegExpr;

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

Chris