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]