Access Violation Al finalizar una Función

[jangel_ramirezm]

Hola Buenas Tardes Por aqui

Es una Pregunta sencilla solo que ya llevo un buen rato tratando de identificar porque marca ese Acces violation.
No se si a alguno de ustedes les ha pasado. El problema es este que al finalizar una funcion de tipo Boolean marca el Acces violation.
la funcion obtiene datos de una tarjeta pero antes de esto debe seleccionar unos elementos para poder hacerlo.

Código Delphi [-]
function leer(Direccion,Var Dato:variant):Boolean;
begin
     if seleccionaElemto1 then   
          if seleccionaelemento2then
             if selecionaelemento3 then
             begin
                 Dato:=obtenerdatos(Direccion);
                 result:=true;
             end
           else
                showmessage('No se pudo seleccionar el elemento 3');
         else
              showmessage('No se pudo seleccionar el elemento 2');
     else 
          showmessage('No se pudo seleccionar el elemento 1');  
  
end;

cuando mada el result es cuando marca el access violation incluso hay mas linas despues de que obtiene los datos.
quien sabe si les ha pasado a ustedes pero no se que pueda estar mal.
gracias de antemano por sus respuestas.

[dec]

Hola,

Problemente el problema está en la instrucción:

Código Delphi [-]
Dato := obtenerdatos(Direccion);

Tendrías que mirar a ver. Una "violación de acceso" se origina, por ejemplo, cuando se trata de acceder a un objeto que ha sido previamente destruido, o que no llegó a crearse siquiera. Tendrás que depurar la aplicación. Sitúa un "punto de ruptura" en la instrucción que menciono a ver si puedes encontrar por dónde van los tiros.

[jangel_ramirezm]

Hola:
Gracias le puse el punto de ruptura en la funcion y la ejecuta bien pero
pues sigue marcando el acces violation incluso si pongo mas instrucciones
después del result.

Código Delphi [-]
function leer(Direccion,Var Dato:variant):Boolean;
begin     
 if seleccionaElemto1 then             
  if seleccionaelemento2then             
    if selecionaelemento3 then            
    begin                 
      Dato:=obtenerdatos(Direccion);                 
      result:=true;                 
      showmessage(dato);                        
    end           
    else                
      showmessage('No se pudo seleccionar el elemento 3');         
  else              
   showmessage('No se pudo seleccionar el elemento 2');     
 else           
  showmessage('No se pudo seleccionar el elemento 1');     
end;

aparece el mensaje mostrando el dato y despues marca el error.
ahí si no se que pueda estar pasando.
saludos

[rulo_m]

y el dato si existe? no se, que pasa si es null? no podria ser por ahi?

[roman]

¿Qué tal que nos pones la definición correcta de la función? Porque esto

Código Delphi [-]
function leer(Direccion,Var Dato:variant):Boolean;

ni siquiera compila. Por otra parte, qué son todos esos seleccionaElementoX? ¿Son variables o funciones? Trata reduciendo la función al mínimo (sin condicionales) para probar y tratar de aislar el problema.

// Saludos

[jangel_ramirezm]

Hola.
Buenos Dias por aqui
Resulta que hoy cuando intenté probar la función ya corrio sin problemas
creo que es la función que denominé SeleccionarElemento1
la que estaba(o está ) dando los problemas.

Gracias a Todos.