Einzelnen Beitrag anzeigen

Sereby

Registriert seit: 31. Mär 2008
91 Beiträge
 
#1

TPerlRegEx - Check einer E-Mail Adresse

  Alt 24. Okt 2010, 13:37
Hallo Leute,

ich suche eine Möglichkeit den eingegebenen text (E-Mail Adresse) mit RegEx zu validieren.
Delphi-Quellcode:
function IsValidEmail(const Value: string): Boolean;
var
  reg: TPerlRegEx;
begin
  reg := TPerlRegEx.Create;
  try
    reg.RegEx := '/([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)/';
    reg.Subject := Value;
    Result := Reg.Match;
  finally
    reg.Free;
  end;
end;
nur wenn ich dann meine E-Mail adresse prüfen möchte ist Reg.Match False.
Was ist daran falsch? Diesen RegEx habe ich von einer Microsoft Seite.. dort steht folgendes im Javascript Code
Code:
hfEmailRegex = /([\w-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([\w-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)/;
Von daher müsste der ja richtig sein.
Was mach ich falsch ^^?

MfG Sereby

Geändert von mkinzler (24. Okt 2010 um 13:44 Uhr) Grund: Code-Tag durch Delphi-Tag ersetzt
  Mit Zitat antworten Zitat