Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Problema con valor en variable global (https://www.clubdelphi.com/foros/showthread.php?t=33414)

judit25 06-07-2006 01:00:34

Problema con valor en variable global
 
Buenas Noches!

Tengo varios formularios de mantenimiento de productos y en ellos hay un boton que me llama a otro formulario que es comun para los demas, en cada formulario estoy guardando el codigo del producto en una variable global, la cual quiero pasar al formulario que estoy llamando mediante el boton.

El problema es que al pasar el valor que tengo en la variable al formulario que estoy llamando en este formualrio se borra el valor que tiene la variable y por tanto no me muestra en el formulario el codigo del producto.

Desde el botón llamo al formulario de esta manera

Código Delphi [-]
procedure TFMantArosNu.BBEliminarClick(Sender: TObject);
begin
if BBEliminar.Caption = '&Inactivar' then
begin
    if TProductoEstado.Value = 'I' then
      begin
        Showmessage('Este producto ya esta inactivo');
      end
    else
      begin
        codprod := dbedit3.Text; // esta variable la declaro en la parte publica del formulario como string
        FsalInv.ShowModal;
      end;
  end;
end;

Alguien podria ayudarme? como mantengo el valor de la variable al pasar al otro formulario?

Gracias anticipadas

Saludos.

nemesio 06-07-2006 01:07:36

Si en el formulario que llama también está declarada una variable con el mismo nombre, entonces ahi está el detalle.
Cuando llames al valor de la variable Pública, debes hacerlo de la siguiente manera:
UnidadDondeEstaLaVariableGlobal.codprod;
Asi podrás acceder a su valor.

judit25 06-07-2006 01:16:59

Gracias por responder!

Ese era el detalle todos los formularios tenian declarada el mismo nombre de variable como global. :o

Gracias


La franja horaria es GMT +2. Ahora son las 11:13:37.

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