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