Hola a todos,
Resulta que he declarado mi variable TStrings globalmente asi:
Código Delphi
[-]
implementation
uses uDataModule, uMain;
var
AlumnoSql : TStrings;
Cuando creo el TObject con el que estoy trabajando hago esto:
Código Delphi
[-]
constructor TAlumno.Create;
begin
inherited Create;
AlumnoSql := TStringList.Create;
AlumnoSql := wDataModule.tbAlumnos.SelectSQL;
ShowMessage(AlumnoSql.Text);
end;
El cuadro de dialogo me muestra pecfectamente los valores de AlumnoSql, hasta ahi va bien, pero cuando voy a otro procedimiento:
Código Delphi
[-]
procedure TAlumno.BuscarAlumno(Sender: TObject);
begin
wDataModule.tbAlumnos.Close;
wDataModule.tbAlumnos.SelectSQL.Clear;
ShowMessage('AlumnoSql.Text);
end;
La variable AlumnoSql esta vacia. Que estoy haciendo mal?