Initialization block no se ejecuta
 

Hola a todos!
Tengo una duda que cuanto menos es sorprendente: tengo (simplificando el problema) dos units, una de ellas depende de la otra, y las dos tienen un bloque de initialization. Se ejecuta primero el bloque initialization que depende de la otra unit, mientras que el de ésta no se ejecuta, provocándome un error...
Os pongo un ejemplo:

unit 1:

Código Delphi [-]
...
implementation
uses
  unit2;
...
initialization
  RegisterLineClass(TAudioLine);

unit2:

Código Delphi [-]
...
implementation
var
  LinesList: TList;

procedure RegisterLineClass(ALineClass: TGraphPrivateLinkClass);
begin
  LinesList.Add(ALineClass);
  RegisterClass(ALineClass);
end;
...
initialization
  LinesList:=TList.Create;

La instrucción LinesList:=TList.Create no se ejecuta, por lo que la llamada a RegisterLineClass devuelve error de lectura en dirección 0x0000008....
¿A alguien le ha ocurrido esto alguna vez?? Y lo que es más importante ( :) ) ¿alguien sabe cómo corregirlo?

Un saludo,
LoPiTaL

Fijate que el orden en el que se ejecutan los initialization es opuesto al orden en el que están declaradas las units... Eso es medio truculento. Así que puede estar pasando que se ejecute primero el initialization de unit1 que el de unit2...

¿Pusiste un breakpoint en el de unit2 para ver qué pasa?

hummm..:rolleyes:..Como la variable "LinesList" de la unidad "Unit2" es una variable global, pues tranquilamente puedes crearla(instanciarla) en la inicializacion de la unidad "Unit1" mas o menos así:
unit 1:

Código Delphi [-]
...
implementation
uses
  unit2;
...
initialization
LinesList:=TList.Create;//<--;)
RegisterLineClass(TAudioLine);

Creo que con eso se solucionaría.;).
Saludos...:)

Vale, rebuscando por internet he visto que el orden en que se inicializan las units no es siempre como se declaran las units en los uses, ya que si dependen también entre ellas en la parte implementation el compilador lo hace como le da la gana...
Al final, y para no tener que hacer el truco de inicializar cosas de la unit2 en la unit1 como dice "rgstuamigo" utilizo

Código Delphi [-]
procedure RegisterLineClass(ALineClass: TGraphPrivateLinkClass);
begin
  if not assigned(LinesList) then
    LinesList:=TList.Create;
  LinesList.Add(ALineClass);
  RegisterClass(ALineClass);
end;

y en la parte initialization también compruebo si está o no asignada para crearla o no.

Como os digo, rebuscando en internet encontré que esto es más bien un bug del compilador de Delphi:

http://qc.embarcadero.com/wc/qcmain.aspx?d=72245

Aquí exponen que el orden initialization que se espera NO es el que se obtiene, y que además ocurre en todas las versiones de Delphi. Incluyen un ejemplo y todo para demostrar el problema.

Yo por mi parte llego a la conclusión de que en el bloque initialization no debe utilizar otras variables/funciones de otra unit, y que si las utiliza, dichos objetos se deben inicializar manualmente (con un init propio) para estar seguro de que no va a fallar.

Gracias por los comentarios y ayuda,
Un saludo,
LoPiTaL