Thema: Delphi Gültige EMail Adresse

Einzelnen Beitrag anzeigen

MathiasSimmack
(Gast)

n/a Beiträge
 
#2

Re: Gültige EMail Adresse

  Alt 13. Jul 2003, 20:04
Warum benutzt du nicht die Masks-Unit? Auf die Schnelle:
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 "?Hallo@du.net"
  // erlaubt wäre - ich glaube nicht ...)

  // @ und . sind die Zeichen, die vorkommen müssen
end;
[edit=Chakotay1308]Delphi-Tags. Mfg, Chakotay1308[/edit]
  Mit Zitat antworten Zitat