validar un dbedit

[jhonny]

Empezado por vtdeleon

tenes razón chamo, tenes razón"

Chamo??? Acaso esa palabra no la usan es en Venezuela?

Bueno mi amigo, según parece la cosa va quedando así:

Código Delphi [-]
 
var
 M,N :Integer;
 SubCadena :String;
begin
  M:=Pos(Edit1.Text, '@');
  if (M > 1) then
  begin
    SubCadena=Copy(Edit1.Text,M,Length(Edit1.Text));
    N:=Pos(SubCadena, '.')
    if ((N>2) and (Length(SubCadena)<>N) ) then
    begin
      //Hago lo que tenga que hacer...
    end;
  end;
end;

Le agregue de una vez por todas el Length , y coloque el if (M > 1) arriba para que en caso de que la @ no exista en la cadena pues no tenga que esperar hasta el final para darse cuenta de eso.

En cuanto a las confusiones que tienes acerca de la función que utilice en mi anterior Post pues te diré que lo que sucede es que estaba haciendo parte de lo que vtdeleon acaba de explicarte en su código anterior de una manera mas detallada... Mejor dicho no atiendas ese post y concentrate en el que estamos armando en este momento.