Vamos a examinar paso a paso lo que sucede.
Código Delphi
[-]
constructor TAlumno.Create;
begin
inherited Create;
AlumnoSql := TStringList.Create;
AlumnoSql := wDataModule.tbAlumnos.SelectSQL;
ShowMessage(AlumnoSql.Text);
end;
- En la línea en negritas creas una instancia de TStringList y la asignas a la variable global AlumnoSql.
- En la siguiente línea "asesinas" la asignación anterior y le asignas a AlumnoSql otro objeto de tipo TStringList. O sea, el objeto creado en la línea anterior se pierde irremediablemente.
- En esta segunda asignación, lo que asignas a la variable AlumnoSql es una referencia al objeto wDataModule.tbAlumnos.SelectSQL, no una copia de él.
- Esto quiere decir que cualquier cosa que le pase a wDataModule.tbAlumnos.SelectSQL también le pasará a AlumnoSql.
- En particular, cuando en el otro procedimiento haces
Código Delphi
[-]
wDataModule.tbAlumnos.SelectSQL.Clear;
también borras lo que tenga AlumnoSql, pues en realidad se trata del mismo objeto.
Quizá lo que pensabas era algo más de este estilo:
Código Delphi
[-]
constructor TAlumno.Create;
begin
inherited Create;
AlumnoSql := TStringList.Create;
AlumnoSql.Assign(wDataModule.tbAlumnos.SelectSQL);
ShowMessage(AlumnoSql.Text);
end;
En este caso, sí tendrías una copia del objeto.
De todas formas, como dice
mamcx, es mala idea tener una variable global así. Aunque no estoy muy seguro de concordar con él en eso de construir la sentencia SQL cada vez.
// Saludos