TPerlRegEx - Check einer E-Mail Adresse

[Sereby]

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

[himitsu]

Ich weiß nicht, irgendwie sieht die komisch aus. :?

ich würde jetzt der Einfachheit halber mal andere Expressions ins Spiel bringen
http://www.regular-expressions.info/email.html

und wenn man ein bissl gestört ist, dann noch diese
http://www.ex-parrot.com/pdw/Mail-RFC822-Address.html


Wobei ich noch vorne ein ^ und hinten ein $ einfügen würde, da .Match doch bestimmt nicht den kompletten String vergleicht. :gruebel:

[Sereby]

naja ist denn grundsätzlich meine art wie ich das vergleiche richtig?
Bei Regulären ausdrücken haperts bei mir leider noch ^^