hola amigos, me he encontrado con este problemita, busque en los foros un poco y creo que no encontre mucho al respecto, este codigo que utilizo lo saque de aqui del foro y funciona bien, pero me he encontrado con una sorpresa ahora, estoy llenando un combobox en tiempo de ejecucion, en otras pantallas que tengo en el mismo programa si funciona pero en una que tengo no, me manda un mensaje de range check error, lo que yo quiero hacer es sacar diferentes años que se encuentran almacenados en una tabla, y que me los muestre en un combobox, para posteriormente hacer un filtro por esos años encontrados, aqui esta el codigo que utilizo
Código Delphi
[-]
procedure TFormquincena.Button3Click(Sender: TObject);
var
Count1,pos: Cardinal;
text: string;
begin
Pos := ComBoxselectoranio.SelStart;
ComBoxselectoranio.Items.Clear;
Text := ComBoxselectoranio.Text;
fs.Query_catalogo_quincenasmod.Close;
fs.Query_catalogo_quincenasmod.SQL.Clear;
fs.Query_catalogo_quincenasmod.SQL.Add('select DISTINCT anio from catalogo_quincenas');
fs.Query_catalogo_quincenasmod.ExecSQL;
fs.Query_catalogo_quincenasmod.Open;
Count1:=fs.Query_catalogo_quincenasmod.RecordCount;
showmessage(inttostr(count1));
if Count1 > 0 then
begin
repeat Dec(Count1);
ComBoxselectoranio.Items.Add(fs.Query_catalogo_quincenasmod.FieldByName 'anio').AsString);
formconecciones.Queryregistrovaca.Next;
until Count1 = 0;
ComBoxselectoranio.ItemIndex := 0;
ComBoxselectoranio.SelStart := Pos;
ComBoxselectoranio.SelLength := 255;
end;
end;
el error me lo manda en esta linea
Código Delphi
[-]
Count1:=formconecciones.Query_catalogo_quincenasmod.RecordCount;
range check error,
algo fuera de rango pero no identifico el error podrian ayudarme o darme una pista, si necesitan mas informacion pueden preguntar, les agradesco su ayuda