viendo como iria quedando seria asi, pero sigue igual, los datos ingresados en el DBEDIT siempre se guardan llevando o no llevando la arroba o el punto, y ahora pasa algo, los datos q entro en los inputmask q son los q llevaran los otros DBEdit, con ese codigo q se lo pongo antes ya no se guardan ni nada, queda los values q esta arriba como
userid = 9999 y asi con los demas
Código Delphi
[-]procedure TForm1.Button3Click(Sender: TObject);
var
M,N :Integer;
SubCadena :String;
begin
M:=Pos(DBEdit9.Text, '@');
if (M > 1) then
begin
SubCadena:=Copy(DBEdit9.Text,M,Length(Edit1.Text));
N:=Pos(SubCadena, '.') ;
if ((N>2) and (Length(SubCadena)<>N) ) then
begin
ADOTable1.Edit;
DBEdit2.text := Maskedit1.Text ;
DBEdit6.text := Maskedit2.Text ;
DBEdit8.text := Maskedit3.Text ;
DBEdit10.text := Maskedit4.Text ;
ADOTable1UserID.AsString := DBEdit2.text;
ADOTable1LastName.AsString := DBEdit3.text;
ADOTable1Name.AsString := DBEdit4.text;
ADOTable1Address.AsString := DBEdit5.text;
ADOTable1PostalCode.AsString := DBEdit6.text;
ADOTable1City.AsString := DBEdit7.text;
ADOTable1Phone.AsString := DBEdit8.text;
ADOTable1Email.AsString := DBEdit9.text;
ADOTable1Birthday.AsString := DBEdit10.text;
ADOTable1.Post;
end;
end;
end;