Neste artigo que irei disponibilizar poderemos validar um campo de email.
Segue a função desenvolvida para que possamos validar um campo de email, lembrando que para um email ser valido ele deve conter @ e ponto.
Esta é a função desenvolvida para validar o campo:
function ValidarEMail(aStr: string): Boolean;
begin
aStr := Trim(UpperCase(aStr));
begin
aStr := Trim(UpperCase(aStr));
if Pos('@', aStr) > 1 then
begin
Delete(aStr, 1, pos('@', aStr));
Result := (Length(aStr) > 0) and (Pos('.', aStr) > 2);
end
else
Result := False;
end;
begin
Delete(aStr, 1, pos('@', aStr));
Result := (Length(aStr) > 0) and (Pos('.', aStr) > 2);
end
else
Result := False;
end;
Espero que tenham gostado...
AbraçoO
