bueno a mi no me trabaja el codigo asi como lo tiene el d la arroba, siempre me guarda las cosas y no me tira el mensaje q esta malo porq no tiene ni arroba ni nada q paresca un email.
arreglando eso me hice con un comboxbox y pues ingeniandomelas un poquito saque un codigo
Código Delphi
[-]
var
pri : string ;
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
case combobox2.ItemIndex of
0 : begin
pri := DBedit9.Text + '@hotmail.com' ;
end;
1 : begin
pri := DBedit9.Text + '@msn.com' ;
end;
2 : begin
pri := DBedit9.Text + '@yahoo.com' ;
end;
3 : begin
pri := DBedit9.Text + '@mts.net' ;
end;
4 : begin
pri := DBedit9.Text + '@shaw.ca' ;
end;
end;
end;
pero ojala se pueda hacer con el metodo ese d si no encuentra la arroba o el punto no lo permita.
y tambien sigo con lo del nuevo usuario, como hacer q queden en blanco los edits sin q se ponga los values q se les dan arriba, ya q se clickeo dos veces el nuevo usuario no me permite aregar nada y me da un error d un solo ya q se han insertado los otros valores autoamticamente.