Gracias ecfisa por tu aclaración , vuelvo a plantear mi mensaje como me indicas.
Tengo un problema con un qreport. Tengo definidos varios componentes de tipo QRRICHTEXT (50) , y debo ir rellenandolos.
Cuando invoco el qreport debo ir recorriendo los 50 QRRICHTEXT pero no se como indicarle el nombre de cada uno sin necesidad de escribir 50 veces lo mismo.
Os paso el codigo que estoy utilizando, en el cual evidentemente la variable "ncelda" es un string y me da error. ¿ Como puedo hacerlo ?
Código Delphi
[-]
var ncelda:string;
begin
profe:='1';
finforme:=tfinforme.Create(self);
for orden:= 1 to 49 do
begin
ncelda:='q'+IntTostr(orden);
memo:='celda'+IntTostr(orden);
basededatos.ado_uno.SQL.Clear;
basededatos.ado_uno.SQL.Add('SELECT * FROM GRUPOHORARIO WHERE C_PROFESOR="'+profe+'" AND CELDA="'+memo+'";');
basededatos.ado_uno.Active:=true;
basededatos.ADO_uno.First;
While not basededatos.ado_uno.Eof do
begin
finforme.ncelda.Lines.Add(basededatos.ado_uno.FieldByName('ALUMNO').AsString);
basededatos.ado_uno.Next;
end;
fdisenohorario.QuickRep1.Preview;
end;
El error me da es sintactico y marca la siguiente linea
Código Delphi
[-]
finforme.ncelda.Lines.Add(basededatos.ado_uno.FieldByName('ALUMNO').AsString);
Y me dice:
"Undeclared identifier: 'ncelda' "
"Missing operator or semicolon"
Espero haber sido un poco mas clara y que asi me podais ayudar.
Gracias