ejecutar codigo y si tiene valor nulo no de error
 

que hay amigos aqui con un pequeño problema resulta que tengo un edit en el cual mediante el evento keypress al meter un numero de codigo me trae el resultado a varios edit bueno hasta ahi todo bien, mi problema esta en que si en ese edit no le pongo ningun valor y le doy enter me arroja un error que dice

Código Delphi [-]
evariant invalid arg error with mensaje 'invalid argument'

entones lo intente con lo siguiente pero no me funciono porque pone el letrero pero no detiene el proceso:

Código Delphi [-]
 if(codigo.Text='')then
  Messagebox(Handle,PChar('el campo no puedo estar en blanco'),PChar('Atencion!!!'),Mb_ok);

Este... sino detiene el proceso no es error de delphi sino de la capa 8 del modelo OSI :D

Seguramente tienes algo:

Código Delphi [-]
if edit1.text = ''
   then MessageBox(....);
Proceso;

Es evidente entonces el porqué continúa con el proceso ¿no? :rolleyes:

Para que funcione deberías tener algo como:

Código Delphi [-]
if edit1.text = ''
   then MessageBox(...)
   else Proceso;

O en todo caso un:

Código Delphi [-]
if Edit1.Text = ''
   then begin
            MessageBox(...);
            Exit;
          end;

Yo me inclino por el if-then-else.

Saludos,

gracias por la respuesta pero sigue marcandome el erro acontinuackion agrego mi codigo a ver si ayuda un poco mas :

Código Delphi [-]
procedure TForm4.codigoKeyPress(Sender: TObject; var Key: Char);
var Total: double;
begin

 if Key = #13 then
  begin


       if codigo.Text='' then
    Messagebox(Handle,PChar('el campo no puedo estar en blanco'),PChar('Atencion!!!'),Mb_ok);

  end
else begin



    query2.Close;
    query2.SQL.Text := 'select * from productos where codigo=:codigo';
    query2.Params[0].Value := codigo.Text;

    query2.Open;


    descripcion.Text := query2.FieldByName('descripcion').asString;
    precio.Text := query2.FieldByName('precio').asString;
   //existencia.Text := query2.FieldByName('existencia').asString;

    form4.clientdataset1.Append;

  form4.clientdataset1['codigo'] := codigo.Text;
  form4.clientdataset1['descripcion'] := descripcion.Text;
  form4.clientdataset1['precio'] := precio.Text;
  form4.clientdataset1['cantidad'] := cantidad.Text;
  form4.clientdataset1['folio'] := folio.Text;
  form4.clientdataset1['fecha'] := fecha.Date;
  form4.clientdataset1['subtotal'] :=  floatToStr( StrTofloat(cantidad.Text) * StrTofloat(precio.Text) );

        form4.clientdataset1.Post;


  query2.Close;
     query2.SQL.Text:='SELECT folio FROM venta ORDER BY folio ASC LIMIT 1';
     query2.Open;
    folio.text := floatToStr( StrTofloat(folio.Text) + StrTofloat(numero.Text)) ;


          ClientDataSet1.First;
   while not ClientDataSet1.eof do begin
      total := total + clientdataset1.FieldByName('subtotal').AsFloat;

      ClientDataSet1.Next;

   end;

      total2.Caption := FormatFloat('###0.00', total);


    begin
      if Key = #13 then
      begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0);
        codigo.SetFocus;

      end

    end;

end;

end;

Parece que no estás poniendo el else en lugar adecuado. Tendría que estar como parte del if interno y no del externo.

// Saludos

Mi ojo compilador me dice que en este código hay un begin-end sobrantes:

Código Delphi [-]
begin
      if Key = #13 then
      begin
        Key := #0;
        Perform(WM_NEXTDLGCTL, 0, 0);
        codigo.SetFocus;

      end

    end;

Justamente el begin y el end exteriores.

En lo demás tendría que probarlo. Por otro lado: Sugiero empezar a identar de forma apropiada el código, por favor. Asi no hay quien le entienda.

Saludos,

Sangrar o dar sangrado, mi estimado Delphius. ;)

Yo suelo usar "tabular".
¿De qué palabra habrá derivado "identar"?

Cierto...
Esta palabra me cuesta acordármela. No me acostumbro, me recuerda a la sangre. :D

Saludos,

Tabular podría servir... uno de sus significados es justamente: accionar el tabulador de una máquina de escribir. Y justamente el teclado ha heredado de éste.

Identar posiblemente haya derivado del inglés... A mi me cuesta sacarme esta palabra.

EDITO: encima que no es correcta la palabra, ¡la digo mal! Es Indentar. Y según wikipedia es un anglicismo de Indentation.

Saludos,

Creo que tabular, si bien coincide con la segunda acepción registrada por la RAE

no sería lo más adecuado, pues sólo se refiere al mecanismo usado para lograr el efecto de sangrado en un ordenador, pero este sangrado no corresponde al de disponer los datos en una tabla.

El término indentar seguramente viene del ingles indent, que, presumiblemente deriva de dent, que significa abolladura. Figuradamente podría verse el sangrado como una abolladura en el margen izquierdo del texto.

Por otra parte, me cuesta mucho más trabajo entender el origen del término sangrado para estos menesteres.

Si bien trato de usar el español de forma correcta, también hay que entender que un lenguaje no es un ente estático, sino que evoluciona constantemente. En este caso específico, doy preferencia al anglicismo.

// Saludos

Es que yo uso el tabulador de mi "máquina de escribir" electrónica :)

Sí. Igualmente yo. Pero si usamos tabular por el hecho de accionar el tabulador, también podríamos usar control K I :D De hecho, en Delphi (al menos hasta la versión 7) a diferencia de entornos más modernos, la tecla TAB no sirve para indentar.

// Saludos

Es lo que me pasa a mi, no sólo me suena a sangre, sino que al asociarlo al concepto de sangría lo siento como ajeno... que no calza bien.

Pues si el español como cualquier otro idioma es vivo. De que hay que hacer un esfuerzo por tratar de hablar lo más apropiadamente posible hay ciertas palabras que ha decir verdad, uno se mal acostumbra...

El término correcto en nuestro idioma es sangría/sangrado. Y su concepto es justamente lo que hacemos... dar espacios en blanco para dar comienzo a un "párrafo". Asi que es lo más correcto, aunque a mi mente le suena raro.

Saludos,

¿Cómo que no?, yo siempre he usado la tecla TAB para indentar/tabular/sangrar.

¿O he entendido otra cosa? :confused:

Ja, ja. Debí ser más específico.

La tecla TAB en delphi, a diferencia de otros lenguajes, no sirve para indentar bloques de código.

Quizá con algún aditamento como cnpacks, pero no de caja.

// Saludos

Hola...

Acabo de probar en Delphi 2010 y si puedo "identar" bloques de código usando la tecla TAB (es una instalación nueva, sin asistentes ni nada).


Saludos...

Ahora sí lo entiendo :)
Es como dices, sí.

cnpack
 

Para evitar todo esto yo instalo en cnpack (buscar en google)
este pack dibuja lineas de diferentes colores en los begin y sus correspondientes end.


Saludos...:cool: