Prüfen einer Emailadresse auf Gültigkeit

[Zacherl]

Eine Einfache Form der Prüfung wäre beispielsweise dies:

Delphi-Quellcode:

uses 
  Masks; 
 
 
function ValidEmail(const sValue: String): Boolean; 
begin 
  Result := MatchesMask(sValue, 
    '[A-Z0-9]*[A-Z0-9]@[A-Z0-9]*[A-Z0-9].[A-Z0-9]*'); 
 
  // * stehen für beliebige Zeichen in beliebiger Anzahl 
 
  // [A-Z0-9] bedeutet, es muss an der Stelle zwingend 
  // ein Buchstabe (A-Z) oder eine Zahl (0-9) vorhanden 
  // sein 
  // am Anfang, vor und nach dem @, sowie vor und nach 
  // dem Punkt dürfen also keinerlei Sonderzeichen 
  // stehen (darüber könnte man evtl. streiten, weil ich 
  // jetzt nicht weiß, ob eine Adresse wie "?[e-mail]" 
  // erlaubt wäre - ich glaube nicht ...) 
 
  // @ und . sind die Zeichen, die vorkommen müssen 
end;

Florian