Problema de código

[Mathom]

Hola, este es el código de un botón "aceptar". Es un pequeño formulario donde hay 2 DBEdits, el tema es que quiero que si los dos han sido rellenados inserte el nuevo registro pero si uno de los dos está vacio aparezca un mensaje de advertencia pero sin grabar el dato que si que está. Utilizo un "if" donde si los dos son "<>" de vacio inserte el registro pero cuando solo relleno uno no entre en el with y por lo tanto no grabe nada, sin embargo aunque sólo rellene uno de los dos me entra en el with modificando el registro. Os dejo el código a ver si veis el fallo, yo me he encabezonado y no lo veo...

Código Delphi [-]
 procedure TForm2.BitBtn2Click(Sender: TObject);
  begin
    If ((DBEdit1.text <> '') and (DBEdit2.text <> '')) then
    begin
      With DataModule7.Table1 Do
      Begin
        Try
          Insert;
          Post;
         Except
          Application.MessageBox ('El nombre introducido no es correcto'+chr(13)+
          'El nombre esta repetido, prueba con otro',
          'Insertar registro',
          Mb_Ok+Mb_IconStop);
          Cancel;
          Insert;
        End;
       End;
     end
    else
    ShowMessage ('¡Debe rellenar todos los campos!')
  end;
  
  end.

aleee

[vtdeleon]

Saludos
Prueba con esto (trim())

Código Delphi [-]
If ((trim(DBEdit1.text) <> '') and (trim(DBEdit2.text) <> '')) then

[lucasarts_18]

Hola:

Prueba así:

Código Delphi [-]
 procedure TForm2.BitBtn2Click(Sender: TObject);
 begin
   If (DBEdit1.text <> '') and (DBEdit2.text <> '') then
   begin
   With DataModule7.Table1 Do
   Begin
     Try
     Insert;
     Post;
      Except
     Application.MessageBox ('El nombre introducido no es correcto'+chr(13)+
     'El nombre esta repetido, prueba con otro',
     'Insertar registro',
     Mb_Ok+Mb_IconStop);
     Cancel;
     Insert;
     End;
    End;
    end
   else
   ShowMessage ('¡Debe rellenar todos los campos!')
 end;
 
 end.

Tenías unos parentesis demás..

[Mathom]

Ante todo, gracias. La solción que me da LucasArt ya la he probado y no funciona correctamente (al menos como yo quería). Ahora probaré lo vtdeleon a ver que tal....

[lucasarts_18]

Hola.

Seguro debe ser un espacio que te queda en blanco, en ese sentido lo de VTDELEON debería funcionar, aún así yo te recomiendo que no uses de esa forma los parentesis, de hecho nunca he visto de esa forma la sentencia.

Hasta Luego -

[Mathom]

No es lo normal. Me refiero a utilzar así los parentesis, lo que pasa es que como no me funcionaba como yo esperaba he empezado a hacer pruebas por si era algo de los parentesis. Lo normal es que los ponga:

if (DBEdit1.text = ' ') and (DBEdit2.text = ' ' ) then

aún no he probado lo de trim. Tengo tres frentes abiertos ahora con la aplicación.. en cuanto lo pruebe os comento como he quedado.

gracias a los dos.

[Mathom]

Bien, he probado tanto el que me ha dicho vtdeleon

If ((trim(DBEdit1.text) <> '') and (trim(DBEdit2.text) <> '')) then

...como...

If((trim(DBEdit1.text) <> '') and (trim(DBEdit2.text) <> '') then

...el resultado sigue siendo el mismo..me sigue entrando dentro del with de todos modos...