Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 09-08-2011
Avatar de jorosmtz
jorosmtz jorosmtz is offline
Miembro
 
Registrado: dic 2009
Posts: 108
Poder: 15
jorosmtz Va por buen camino
Cita:
Empezado por jose_kira_sk8 Ver Mensaje
Código:
if
    idh.text='' //polica...
 then
    showmessage('recuerde completar los campos requeridos*')
 else
   with tabladonacion do begin
      Insert;
      fieldbyname('IdHerramientas').Value := idh.text ;
      fieldbyname('Nombre').Value := nombredon.text ;
      FieldByName('Apellido').Value := ape.Text;
      FieldByName('Dni').Value := dni.Text;
      FieldByName('fecha de ingreso').Value := fecha.DateTime;
      FieldByName('Observaciones').Value := observaciones.Text;
           tabladonacion.Post;
           tabladonacion.FlushBuffers;
   end;
      with tablaherramientas do begin
      Insert;
      fieldbyname('IdHerramientass').Value := idh.text ;
      fieldbyname('Nombre').Value := nom.text;
      fieldbyname('proviene de').Value := editdon.text;
      fieldbyname('descripcion').Value := descr.text;
lo que sucede es que tengo que poner varias condiciones y no se como hacerlo , me dijeron que podía hacer un try/ except ,pero no me convence , quería saber como hacer lo mas fácil posible sin tener tanto código.Gracias por el espacio.

Estoy viendo algo en tu código que no se si has notado o lo has hecho así deloberadamente.

En el "else" (o sea si no se cumple la condición del "if") solo te va a tomar el primer "with", en este caso el de "tabladonacion". Si lo que quieres es que si no se cumple la condicion del if se hagan los siguientes "with" incluyendo el de "tablaherramientas" necesitas poner un "begin-end" que encierre lo del "else", o necesitas poner la siguiente condición en el "if"

Código Delphi [-]
if idh.text='' then
  exit;

de esta forma se saldrá del procedimiento donde se encuentra y ya no continuará con las demás líneas, por lo que ya no necesitarás ni siquiera el "else". Si llega a la siguiente línea de código dónde está el "with" quiere decir que no cumplió la condición.

Ahora bien, lo que yo entiendo por tu pregunta es lo que newtron entendió también, ¿es esto correcto? si es así el "and" y el "or" te serán de mucha ayuda en las condiciones.
__________________
Javier Oros dice: Deus nobiscum, quis contra nos
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Problema con condicionales encadenados Parabol77 Varios 4 10-02-2011 17:24:00
Problema con condicionales "compuestos" Parabol77 Varios 2 18-11-2010 16:27:33
Se puede hacer consultas SQL condicionales con Firebird David SQL 2 04-04-2008 15:34:54
condicionales en SQL Max_E. SQL 2 31-10-2006 19:28:33
SQL´s con condicionales AMINOA2R Firebird e Interbase 3 02-02-2006 09:33:14


La franja horaria es GMT +2. Ahora son las 17:53:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi