Raised Exception

[javiermorales]

Hola Juliá, por fin he tenido tiempo para probar las modificaciones que me indicaste y trazando las mismas he conseguido averiguar que de una forma que no comprendo, el valor de una variable global al formulario que se pretende cerrar cambia su valor a cero.

Te comento mas en concreto, si recuerdas, al crear el formulario, dejo en una variable global a toda la aplicación el indice del array de clases donde está la clase que acabo de crear y ese formulario en el evento OnShow recoge ese valor y se lo asigna a una variable global solo al formulario.

Toda la asignación es correcta y el valor es el indicado, pero cuando desde el formulario creado, se crea otro formulario,al volver del mismo, el valor de la variable ha pasado a cero (en el formulario creado desde el anterior no existe una variable con ese nombre, ni en ningún momento hace absolutamente nada con esa variable).

Es muy raro. ¿Como es posible que una variable de un formulario cambie su valor por crear otro formulario?. ¿Se te ocurre algo?.

Gracias. Un saludo.

[Julià T.]

es posible cuando, al cerrar el formulario, ya no existe ningun formulario que utilize la unidad en el uses de la unidad que contiene la variable.

ej

unit1
uses
.......;

unit2
uses
UnitGlobal.......;

unit3
uses
UnitGlobal.......;

UnitGlobal
Var
VarGlobal;

Si la unit2 o la unit3 estan abiertas, existirá la variable, cuando las cierres es muy posible que deje de tener el valor que tenia antes

[javiermorales]

Hola Juliá, gracias por contestar. La variable que pierde su valor en el formulario padre está declarada junto con la declaración de la variable formulario:

var
   formP: Tform;
   variable: integer;
......
procedure Button1Click();
begin
  //1.- creo el formulario hijo
  //2.- Hago hijo ShowModal
  //3.- LiberoPadre(variable);
end;
......

En 1.- la variable no ha perdido su valor
En 2.- se muestra el 2 formulario
Cuando cierro el formulario y llega a la línea 3, la variable ha pasado a valer cero y el acceso al array de pantallas no es correcto.

Como ves se trata de una variable global solo al formulario y en ningún momento se cierra, solo se crea otro formulario, se muestra como Modal y al volver de él, la variable ha perdido su valor.

Gracias Juliá

[javiermorales]

Ya he solucionado el problema de la modificación de la variable, utilizando en su lugar, el nombre del formulario a liberar. Pero ahora se me produce un error, que me plantea una pregunta.

Cuando desde un formulario, en un boton por ejemplo, se ejecuta la liberación del mismo, ¿que pasa con la línea siguiente a la liberación?. Me explico.

En el procedimiento del botón (Ej: Botón Salir), en lugar de realizar form.close, se raliza lo siguiente:

procedure TSelTerComp.Button3Click(Sender: TObject);
begin
  inherited;
  LiberaPantalla('SelTerComp');
end;//(**)

El procedimiento de liberación de pantalla está en módulo a parte y lo que hace es lo siguiente:

procedure LiberaPantalla(nom:string);
var
  i: integer;
  a: boolean;
begin
  a := false;
  i := 1;
  while not (a) and (i<25) do//25 es el tope de formularios 
  begin
    if (pantalla[i]<>nil) then
    begin
      if (pantalla[i].Name = nom) then
        a := true
      else
        inc(i);
    end
    else
      inc(i);
  end;
  if (a) then//Lo ha encontrado
  begin
    if (pantalla[i]<>nil) then
      Pantalla[i].Close;
    if (pantalla[i]<>nil) then
      Pantalla[i].Free;
    if (pantalla[i]<>nil) then
      Pantalla[i] := nil;
  end;
end;

Como ves entre otras cosas llama al close de la pantalla y ahí viene mi pregunta. Si llamo al close del formulario desde LiberaPantalla, cuando termina este procedimiento, vuelve el control al formulario, justo en (**) y entonces salta el error, ¿Es normal que habiendo cerrado y liberado el formulario, Delphi no sepa que no existe?.

Gracias. Un saludo.

[Julià T.]

Me suena a que has vuelto al error del principio.
El código parece correcto incluso si el codigo de form padre en el que se ejecuta el button3 fuera incorrecto, fallaria antes ya que primero se ejecuta el código heredado.