ejecutar codigo y si tiene valor nulo no de error

[edgar_prospero]

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);

[[Delphius]]

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

Seguramente tienes algo:

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

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

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,

[edgar_prospero]

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;

[roman]

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

[[Delphius]]

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,

[[Al González]]

Empezado por Delphius

[...]Sugiero empezar a identar de forma apropiada el código[...]

Sangrar o dar sangrado, mi estimado Delphius.