Error transfiriendo de Excel(ADO) a Paradox

[Walterdf]

Buenas
Hice una aplicación que me transfiere los datos de determinada planilla de Excel a una tabla Paradox.
Tengo un componente AdoConnection1, AdoDataSet1 y una TTable1 (paradox).
La conexión ADO hacia Excel funciona perfecto y además la muestra en un dbgrid.
El problema viene cuando intento pasar los datos a la TTable1, lo hago de la siguiente manera:

procedure TForm1.BitBtn3Click(Sender: TObject);

var
contador: integer;

begin
contador:=0;
Table1.Active:=true;

while not AdoDataSet1.EoF do
begin
contador:=contador+1;
Table1.append;
Table1.Fields[contador].Value := AdoDataSet1.Fields[contador].Value;
AdoDataSet1.Next;
end;

end;

Me tira el error: "List Index out of bounds (21)" mientras que 21 es la cantidad de campos que tengo tanto en el Excel como en la TTable1.
¿En qué estoy metiendo la pata?
Muchas gracias.
Walter

[jachguate]

Entonces, vos mismo te das cuenta que estas traspasando los límites. Si 21 es el número de campos, el mayor indice (al estar en un arreglo basado en 0) es 20.

¿Que es lo que queres conseguir?

Te recomiendo el uso de las etiquetas [delphi] y [code] para publicar trozos de código. mas información en el mensaje al inicio de cada foro, y en los vínculos de mi firma.

Hasta luego.

[Walterdf]

Si, me doy cuenta lo que está pasando pero ya estoy tan mareado de revisar código que no logro darme cuenta de que estoy haciendo mal como para pasarme.
En cuanto a lo de las etiquetas lo tengo en cuenta y en lo sucesivo prometo utilizarlas.
Muchas gracias.

[jachguate]

Entonces mejor tomate un respiro. En lo particular no he usado ADO para conectarme con excel, pero supongo que cada fila es un registro, no?

Te has dado cuenta que de la forma que estas "importando" los datos tomarás solo los datos de las celdas de la diagonal principal? (a,1), (b,2), (c,3) etc.

No se que pretendes hacer, pero creo que venis confundido desde el inicio...

[Walterdf]

Gracias!
Realmente me voy a tomar un descanso porque lo que estaba haciendo es cualquier cosa. Pongo el código corregido ya que puede ser de utilidad a alguien mas.

procedure TForm1.BitBtn3Click(Sender: TObject);
var
campos, bucle, contador: integer;

begin
  contador:=0;
  campos:=adodataset1.Fields.Count - 1;
  Table1.Active:=true;
while not Adodataset1.EoF do
  begin

    contador:=contador+1;
    Table1.Append;
    for bucle:= 0 to campos do
      begin
        Table1.Fields[bucle].Value := Adodataset1.Fields[bucle].Value;
      end;
    Adodataset1.Next;

  end;
end;

Muchas gracias por todo.
Un abrazo
Walter