Fórum email preenchido corretamenta #356206

Function ValidaEMail(const EMailIn: PChar):Boolean; const CaraEsp: array[1..40] of string[1] = ( ´!´,´#´,´$´,´¬´,´¨´,´&´,´*´, ´(´,´)´,´+´,´=´,´?´,´¬´,´¢´,´¹´,´²´, ´³´,´&´,´´´,´´´,´ç´,´Ç´,´,´,´;´,´:´, ´<´,´>´,´~´,´^´,´?´,´/´,´\´,´|´,´[´,´]´,´{´,´}´, ´º´,´ª´,´°´); var i,cont : integer; EMail : ShortString; begin EMail := EMailIn; Result := True; cont := 0; if EMail <> ´´ then if (Pos(´@´, EMail)<>0) and (Pos(´.´, EMail)<>0) then // existe @ . begin if (Pos(´@´, EMail)=1) or (Pos(´@´, EMail)= Length(EMail)) or (Pos(´.´, EMail)=1) or (Pos(´.´, EMail)= Length(EMail)) or (Pos(´ ´, EMail)<>0) then Result := False else // @ seguido de . e vice-versa if (abs(Pos(´@´, EMail) - Pos(´.´, EMail)) = 1) then Result := False else begin for i := 1 to 40 do // se existe Caracter Especial if Pos(CaraEsp[i], EMail)<>0 then Result := False; for i := 1 to length(EMail) do begin // se existe apenas 1 @ if EMail[i] = ´@´ then cont := cont + 1; // . seguidos de . if (EMail[i] = ´.´) and (EMail[i+1] = ´.´) then Result := false; end; // . no f, 2ou+ @, . no i, - no i, _ no i if (cont >=2) or ( EMail[length(EMail)]= ´.´ ) or ( EMail[1]= ´.´ ) or ( EMail[1]= ´_´ ) or ( EMail[1]= ´-´ ) then Result := false; // @ seguido de COM e vice-versa if (abs(Pos(´@´, EMail) - Pos(´com´, EMail)) = 1) then Result := False; // @ seguido de - e vice-versa if (abs(Pos(´@´, EMail) - Pos(´-´, EMail)) = 1) then Result := False; // @ seguido de _ e vice-versa if (abs(Pos(´@´, EMail) - Pos(´_´, EMail)) = 1) then Result := False; end; end else Result := False; end;

midstr(text1.text,1,50)<>´@´ cara nao funcionou ,nao sei pq .

solucinado !!!! :D:D:D

procedure TForm1.Edit1Change(Sender: TObject); begin IF NOT ValidaEMail(EDIT1.TEXT) THEN BEGIN SHOWMESSAGE(´EMAIL INVALIDO !!!´); EDIT1.SETFOCUS; EXIT; END; end;