Recorrer bd con parametros

[johnny_jjc]

gracias Amigo roman.

te explico mas a detalle para tu gentil colaboracion.

Nombre tabla: AVALUOS
Campos
predio A 25
2010 N
2011 N
2012 N
2013 N
2014 N
2015 N
2016 N
2017 N
************************
Resultado: Llenar un Grid

Vigencia Avaluo Impuesto
2010 XXXX1 YYYYY1
2011 XXXX2 YYYYY2
........
2017 XXXX8 YYYYY8

********************************

Actualmente

NVigencias:=8;

FOR VANO:=1 TO NVigencias DO
BEGIN

GRIDLIQUIDACION.CELLS[1,I]:=inttostr(2010+I);


GRID:= GRIDLIQUIDACION.CELLS[1,I];

CASE GRID OF

//************ 2010

2010: begin
GRIDLIQUIDACION.CELLS[2,I]:=strtoint(TAvaluos['2010']);
GRIDLIQUIDACION.CELLS[3,I]:=CALCULARIMPUESTO(TAvaluos['2010']);
end;

EN TOTAL SON 8 VIGENCIAS >>> OBSERVANDO PODRIA REDUCIR TODO EL CASE DE LA SIGUIENTE MANERA:

FOR VVIGENCIA:=2010 TO 2017
begin
GRIDLIQUIDACION.CELLS[2,I]:=strtoint(TAvaluos[VVIGENCIA]);
GRIDLIQUIDACION.CELLS[3,I]:=CALCULARIMPUESTO(TAvaluos[VVIGENCIA]);
end;

PERO ME MARCA ERROR >>> QUISIERA REEMPLAZAR TAvaluos['2010'] POR TAvaluos[VVIGENCIA]
COMO RREMPLAZO EN NOMBRE DEL CAMPO POR UN PARAMETRO????....