Check or Validate e-mail address-Pasarkode.com Portal Source Code No.1 di Indonesia - just like a traditional market you can sell and buy, or it could be a promotion products - trade-share-showcase-download-request - a portal that has dedication and concentration in the development of computer programming. Collection of various kinds of code pro

Check or Validate e-mail address-Pasarkode.com Portal Source Code No.1 di Indonesia - just like a traditional market you can sell and buy, or it could be a promotion products - trade-share-showcase-download-request - a portal that has dedication and concentration in the development of computer programming. Collection of various kinds of code pro

function IsValidEmail(const Value: string): Boolean;

  function CheckAllowed(const s: string): Boolean;
  var i: Integer;
  begin
    Result:= false;
    for i:= 1 to Length(s) do
      if not (s[i] in ["a".."z",
                       "A".."Z",
                       "0".."9",
                       "_",
                       "-",
                       "."]) then Exit;
    Result:= true;
  end;

var
  i: Integer;
  NamePart, ServerPart: string;
begin
  Result:= False;
  i:=Pos("@", Value);
  if i=0 then Exit;
  NamePart:=Copy(Value, 1, i-1);
  ServerPart:=Copy(Value, i+1, Length(Value));
  if (Length(NamePart)=0) or ((Length(ServerPart)&lt5)) then Exit;
  i:=Pos(".", ServerPart);
  if (i=0) or (i&gt(Length(serverPart)-2)) then Exit;
  Result:= CheckAllowed(NamePart) and CheckAllowed(ServerPart);
end;