En primer lugar, estas usando una variable global. Debes limitar al
maximo eso. A duras penas, para objetos tipo "Singleton", y eso que ojala ni eso.
Segundo, estas dependiendo de manejo de estado mutable, osea, AlumnoSql puede cambiar en cualquier momento por medio de quien sabe quien, asi que se requiere disciplina para saber exactamente donde y como y en que orden se opera sobre un tipo mutable en un programa. Asi que lo que te tocaria hacer es buscar en todo el codigo fuente donde y quien esta modificando esos datos, y controlar manualmente el orden de acceso.
La forma mas correcta es:
- No usar variables globales
- Usar funciones "puras", que ante la misma entrada de datos de forma deterministica siempre sale el mismo dato, y no hay forma de interceptar a medio camino y alterar sus datos (que es lo que pasa con AlumnoSql). Ademas, que estas no dependan del estado de otras funciones y/o objetos.
- Centralizar todo lo que maneje estado (osea: Acceso a base de datos, archivos, etc).
- Si manipulas una estructura mutable (que en Delphi es casi todo
) encapsular en una clase para que sepas exactamente como y quien y cuando se hacen las cosas.
O dicho muy sencillo:
El manejo de estado
debería ser LOCAL a la clase/objeto (no hay como accederlo por fuera, no hay forma de hacer MiObjeto.MiDato ni parecido). Cuando un objeto se comunica con otro, en vez de pasar punteros/referencias/datos mutables se debería pasar una COPIA de los datos. Osea, se debe poder asegurar que si Pepito le pasa a Juanito una billetera con 10000 dólares, Juanito VERDADERAMENTE tiene los 10000 dólares, no que Pepito puede cambiar 10000 por 0 y luego Juanito se pregunte: Porque desapareció mi plata magicamente?
Que en tu caso en concreto: AlumnoSql no debe ser ni una propiedad, ni variable ni externa ni interna, siempre que se requiere asignar un sql al dataset una funcion lo regenera siempre:
Código Delphi
[-]procedure TAlumno.BuscarAlumno(Params....);
begin
self.tbAlumnos.Close;
self.tbAlumnos.SelectSQL.Clear;
self.tbAlumnos.Sql := AQUI SE HACE EL SQL
end;
Y mucho mejor:
Código Delphi
[-]function TAlumno.BuscarAlumno(Params....):TDataSet;
begin
end;
Lo que lo convertiria en una funcion testeable.