Ver Mensaje Individual
  #4  
Antiguo 03-09-2014
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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;
  1. En la línea en negritas creas una instancia de TStringList y la asignas a la variable global AlumnoSql.
  2. 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.
  3. 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.
  4. Esto quiere decir que cualquier cosa que le pase a wDataModule.tbAlumnos.SelectSQL también le pasará a AlumnoSql.
  5. 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
Responder Con Cita