AccessViolation inexplicable

[[Chris]]

Hola, en el ejemplo pones la línea:

Código Delphi [-]
ShowMessage('Hola');

Sin embargo, no te creo que este sea el código real que estás utilizando. Dejame suponer que intentas mostrar el contenido de alguna propiedad de un objeto o bien el contenido de alguna variable. Si es así, entonces debe ser que el objeto->propiedad / variable no ha sido inicializado.

Revisa que la variables que muestra esté inicializada.

Saludos.

[nena_yei]

D&W, El contenido del ShowMessage no es real, el texto real es algo así como: Introduzca el CD correcto. Pero la funcionalidad es la misma.

Davidcfres, muchas gracias por la respuesta, voy a probar aver si funciona y te digo algo Merci

[nena_yei]

Davidcfres, acabo de probar lo que me has dicho, pero no sé si hago algo mal, me sale un error de: EReadError with message 'Invalid property value' quan se ejecuta lo siguiente: Application.CreateForm(Tportada, portada);
No sé si es que esto lo tengo que quitar o qué puedo estar haciendo mal.

[nena_yei]

He probado quitando la propiedad "inherited" y me muestra el ShowMessage correctamente! Pero al darle a OK en el ShowMessage me sale el error:
Exception EAccesViolation in module dech.exe at 00000000. Acces violation at address 00000000. Read of address 00000000.
Alguna solución?? Graciaaas!!

[[Chris]]

Empezado por nena_yei

D&W, El contenido del ShowMessage no es real, el texto real es algo así como: Introduzca el CD correcto. Pero la funcionalidad es la misma.

Entonces tu código original es correcto y no debería presentar ningún problema. Revisa la declaración de la función ShowMessage. Puede que alguna de las unidades declaradas en el USES implemente una función con un nombre similar y está sea la razón del problema. La unidad debería estar declarada en la unidad Dialogs.pas. Si es otra, entonces por ahí es donde está el problema.

También puedes intentar hacer el llamado al ShowMessage en algún otro lado del formulario, por ejemplo colocando un botón temporal y en el evento OnClick llamar al ShowMesage('Hola').

[nena_yei]

He probado otras formas para mostrar mensajes y tampoco funcionan,así que no puede ser problema del ShowMessage. No puedo poner esta llamada en el formulario porque si el cd no esta en la unidad D no se abrirá el formulario.
Qué kaos tengo!! Gracias por contestar D&W

[[Chris]]

Cuando vale la pena, es mejor botar el código antes de intentar depurarlo. por eso, te proporciono un código mejor para hacer lo que intentas:

Código Delphi [-]
begin
  Application.Initialize;
  Application.Title := 'Diccionario crítico etimológico castellano e hispánico';
  Application.HelpFile := 'AYUDA.HLP';

  // La portada no hará ningun tipo de lógica. Se evaluará el contenido
  // del CD en esta sección de inicio.
  Application.CreateForm(Tportada, portada);

  unidad:=GetFirstCdRomDrive; // TODO: definir la variable unidad como string, supongo.

  while not isDiskIn(unidad[1]) then
  begin
    // TODO: Definir la variable "cancel_load" como Boolean
    cancel_load := (MessageBox(application.Handle,
                               'Introduzca el CD correcto',
                               'pon un titulo acá', MB_RETRYCANCEL) = IDCANCEL);

    if cancel_load then
      break;
  end;


  if not cancel_load then
  begin
    descomprimir();
    Application.CreateForm(Tcentral, central);
    Application.CreateForm(Tdades, dades);
    Application.CreateForm(Tmultiple, multiple);
    Application.CreateForm(Tllengues, llengues);
    Application.CreateForm(Tdocumentacio, documentacio);
    Application.CreateForm(Tbuscabierta, buscabierta);
    Application.CreateForm(Tabreviaturas, abreviaturas);
    Application.CreateForm(Tnotacionfonetica, notacionfonetica);
    Application.CreateForm(Tintroduccion, introduccion);
    Application.CreateForm(Tfuentescas, fuentescas);
    Application.CreateForm(Tdedicatoria, dedicatoria);
    Application.CreateForm(Tindibiblio, indibiblio);
    Application.CreateForm(Tindicacionesbibliograficas, indicacionesbibliograficas);
    Application.CreateForm(Tabreviaturastxt, abreviaturastxt);
    Application.CreateForm(Tpopuplema, popuplema);
    Application.CreateForm(Tcredits, credits);
    Application.CreateForm(Tmapagrafies, mapagrafies);
    Application.CreateForm(Tcarga, carga);
    Application.Run;
  end;
end;

De esta forma, el código del evento FormCreate de la portada ya no será necesario y puedes eliminarlo.

Saludos.

[nena_yei]

Muchas gracias D&W, esto tenía muy buena pinta! He puesto el código que me has dicho y me salta el error de "EReadError Invalid property value" al ejecutarse Application.CreateForm(Tportada, portada); No lo entiendoo No hay otra manera de generar la portada que no sea así o algo? Si quito esta sentencia, evidentemente,no funcionará no? Ya que no podré acceder a las funciones que estan allí dentro y demás..
Graciass de nuevo, ojalá tengáis otra solución. Un saludo

[[Chris]]

El EReadError, Invalid property value normalmente es generado cuando alguna propiedad del formualario o un control dentro de éste tiene alguna propiedad con un valor no permitido. Intenta abrir el formulario en delphi (en modo edición). Si no te da ningún problema, entonces puedes tratar de comentar temporalmente todo el código del form. y luego ir depurando para ver que es lo que pasa.

Saludos.