[[Caral]]

Hola

Código Delphi [-]
procedure TFormAsistencia.BitBtn2Click(Sender: TObject);
var
w_id_curso, w_id_alumno: string;
// w_id_alumno : integer;
begin
   w_id_curso:= EditCursoId.text;

   with ADOQueryAlumnos_Cursos do
   begin
   Close;
   SQL.Text:= 'select * from Alumnos_Cursos where id_curso = 3 order by id_alumno ';     //''' + w_id_curso + ''' order by id_alumno ');
   Active:= True;
   if (ADOQueryAlumnos_Cursos.RecordCount > 0 ) then
   begin
   while not ADOQueryAlumnos_Cursos.Recordset.EOF do
   begin
   showmessage(ADOQueryAlumnos_Cursos.sql.text); //muestra el contenido en el ciclo
   showmessage(ADOQueryAlumnos_Cursos.Recordset.Fields['id_alumno'].value);
   w_id_alumno := intToStr(ADOQueryAlumnos_Cursos.Recordset.Fields['id_alumno'].value);
   showmessage('variable: '+ w_id_alumno );
   ADOQueryAlumnos_Cursos.next;
   end;
   end;
end;

Saludos