validar un dbedit

[[Caral]]

Hola moyo18
Bienvenido al ClubDelphi.
Para hacer lo que quieres, se puede hacer perfectamente con el combobox, para unir se usa el signo +, igual que en fox, supongo.
La parte de union en codigo seria algo asi:

Código Delphi [-]
Edtit1.text + Combobox.text;

Intenta probar asi, y cuando tengas algo de codigo, ponlo aqui y lo veremos mejor.
Saludos

[moyo18]

ok, el problema q tengo es q, cuando le voy nuevo usuario, quisiera q los DBEdit aparecieran en blancoy tambien los INPUTMASK, pero cual le doy nuevo user me aparecen los values q estoy dando en el codigo d abajo de poner el user

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);


        begin
          with ADOTable1 do begin
            insert;
             FieldByName('UserID').Value := '9999999';
             FieldByName('LastName').Value := 'LastName';
             FieldByName('Name').Value := 'Name';
             FieldByName('Address').Value := 'Address';
             FieldByName('PostalCode').Value := 'Postal Code';
             FieldByName('City').Value := 'City';
             FieldByName('Phone').Value := '8787878';
             FieldByName('Email').Value := 'Email';
             FieldByName('Birthday').Value := '12/31/1900';
            post
          end ;
          SaveJpegToTable(ADOTable1, ADOTable1Picture, 'button.jpg') ;


end;

tambien digamos si le doy dos veces click al boton agrEGAR nuevo user si no he metido los cambios automaticamnte se guardan en la tabla los datos d arriba por ejmpplo el userid = 99999, entonces eso me traba la base d datos diciendo q ya esta metido antes y no se puede agregar otro. entonces quisiera saber como seria el codigo q lleva el signo mas del navegador predise;ado de delphi y q me aparescan los inputmask en blanco.


y este es para guardar el user, aki se tenria q ver lo d la validacion de lo del email pero no me funciona asi como esta arriba.

Código Delphi [-]
{UserId}
If (DBEdit2.Text = '') then
     ShowMessage('User Id is Empty')
else
 if (Pos(DBEdit2.Text, '@') <> 0) then
  if (Pos(DBEdit2.Text, '.') <> 0) 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
 else
  Showmessage ('The email entry is wrong');

end;

ARGEGAR UNA PICT A LA BASE D DATOS JPEG Y BMP

Código Delphi [-]
const
 JPEGstarts = 'FFD8';
 BMPstarts = '424D';  //BM

var
  Form1: TForm1;

implementation
   Uses jpeg;
{$R *.dfm}

{ fuction to see the picture }

function JpegStartsInBlob (PicField:TBlobField):integer;
var
 bS     : TADOBlobStream;
 buffer : Word;
 hx     : string;
begin
 Result := -1;
 bS := TADOBlobStream.Create(PicField, bmRead);
 try
  while (Result = -1) and (bS.Position + 1 < bS.Size) do
  begin
   bS.ReadBuffer(buffer, 1);
   hx:=IntToHex(buffer, 2);
   if hx = 'FF' then begin
     bS.ReadBuffer(buffer, 1);
     hx:=IntToHex(buffer, 2);
     if hx = 'D8' then Result := bS.Position - 2
     else if hx = 'FF' then bS.Position := bS.Position-1;
   end; //if
  end; //while
 finally
  bS.Free
 end;  //try
end;

{adding picture}



//Extra!! save JPG to table
procedure SaveJpegToTable(Table: TADOTable; PicField:TBlobField; sPicPath: string);
{
Usage:

  SPicFileName := 'C:\!gajba\cdcovers\cdcover1.jpg';
  SaveJpegToTable(ADOTable1, ADOTable1Picture, SPicFileName);
}
var
  fS  : TFileStream;
begin
  fs:=TFileStream.Create(sPicPath, fmOpenRead);
  try
   Table.Edit;
   PicField.LoadFromStream(fs);
   Table.Post;
  finally
   fs.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  bS  : TADOBlobStream;
  Pic : TJpegImage;
begin

  if opendialog1.execute then
    begin
      SaveJpegToTable(ADOTable1, ADOTable1picture, Opendialog1.filename);
    end;
    bS := TADOBlobStream.Create(AdoTable1Picture, bmRead);
  try
    bS.Seek(JpegStartsInBlob(AdoTable1Picture), soFromBeginning);
    Pic:=TJpegImage.Create;
    try
     Pic.LoadFromStream(bS);
     Image1.Picture.Graphic:=Pic;
    finally
     Pic.Free;
    end;
  finally
    bS.Free
  end;

end;

espero entienda lo q estoy haciendo.

la tabla esta en access y estoy usando adotable y adoconnection.

[jhonny]

Porque colocaste (Pos(Edit1.Text, '@') <> 2) se supone que era (Pos(Edit1.Text, '@') <> 0)...

Por otro lado te pido el favor que redactes bien porque se dificulta mucho el leer textos como el que haz escrito.

[vtdeleon]

Yo podrí poner vtdeleon.@ y sería válido

Me guiaré del código de jhonny (porque me da pereza leer el de mas arriba)

Código Delphi [-]
var
 M,N:Integer;
begin
 M:=Pos(Edit1.Text, '@');
 N:=Pos(Edit1.Text, '.')
if (M> 1) then
  if (N+2 > M) then//tambien podría ponerse Legth para saber la cantidad de caracteres 
                         //y que este sea mayor que la posición del punto (.)
  begin
    //Hago lo que tenga que hacer... 
  end;

Saludos

[jhonny]

El problema con el codigo de vtdeleon es que no sería valido el siguiente:

[email protected]

Mas bien le agregaria algo que mire que despues de la arroba haya un punto(.) pero que ese punto no sea el ultimo caracter como bien ya lo ha indicado vtdeleon...

Parece que esto es mas complicado de lo que se cree, jejeje.

Ejemplo pachuco:

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

Eso me devolveria solo la cadena despues de la @ y alli si evaluar que haya un proximo punto y que ademas no sea el ultimo.

[vtdeleon]

Empezado por jhonny

Parece que esto es mas complicado de lo que se cree, jejeje.

Parece que llevas razón, roman nos ha partido en dos.

[moyo18]

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.

[moyo18]

ya esta a ver si entiendes ahroa, gracias por la ayuda.

[jhonny]

Bueno, veo que haz cambiado el 2 por el 0, pero de todas maneras debes ahora aplicar los cambios mencionados por vtdeleon y a eso agregarle el cambio que te he mencionado anteriormente

[moyo18]

no entinedo como iria esto

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

porq primero COPy y luego usas POST, si lo primero fue

if (Pos(DBEdit9.Text, '@') <> 0) then
if (Pos(DBEdit9.Text, '.') <> 0) then

entonces no entiendo, eso seria abajo d la condicion, pero porq
POS si ya esta usado arriba.

[vtdeleon]

Empezado por jhonny

El problema con el codigo de vtdeleon es que no sería valido el siguiente:

[email protected]

"tenes razón chamo, tenes razón"
Y que tal esto?

Código Delphi [-]
var
 M,N:Integer;
 SubCadena:String;
begin
 M:=Pos(Edit1.Text, '@');
 SubCadena=Copy(Edit1.Text,M,Length(Edit1.Text));
 N:=Pos(SubCadena, '.')
if (M> 1) then
  if (N>2) then//tambien podría ponerse Legth para saber la cantidad de caracteres 
                         //y que este sea mayor que la posición del punto (.)
  begin
    //Hago lo que tenga que hacer... 
  end;

Lo de ">2" o ">1" lo pongo porque me da la impresión (y puedo estar equivocado) de que hay muy pocos o ningún correo que sea "[email protected]", ya eso depende de quien lo quiera usar así o como jhonny "<>0".