Aqui esta el codigo con las infimas modificaciones
Código Delphi
[-]
var
ArchivoCsv, Campos: TStringList;
I, J: Integer;
begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;
Campos.Delimiter := #9;
try
ArchivoCsv.LoadFromFile(JvDirectoryEdit.EditText+'\'+Archivo);
for I := 0 to ArchivoCsv.Count - 1 do
begin
Campos.Clear;
Campos.DelimitedText := ArchivoCsv[i];
if(Campos.Count > 5 ) then
begin
ADOTableImporta.Insert;
for J := 0 to Campos.Count - 1 do
begin
ADOTableImporta.Fields[J].Value := Campos[J];
end;
ADOTableImporta.Post;
end;
end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
end;
El condicional en el cual pregunto por cuantos campos tiene el segundo tstringlist es porque en el archivo que proceso, viene un encabezado el cual no se debe procesar, ademas alguno similar a este se encontraria en otras partes del archivo, aqui pongo una muestra del archivo que estoy procesando:
00000MOVIMIENTOS
1086 1086000005080 0000000000001 NOE 21221662 1 9026 2005/08/29 2002/01/21 1969/12/31 19:00:00 570110 1027 00000061543 2 890934479 294999.00 570110 1005 00002462367 2 70546209 0
1086 1086000005080 0000000000001 NOE 21221662 2 9026 2005/08/29 2002/01/21 1969/12/31 19:00:00 570110 1027 00000061543 2 890934479 318461.00 570110 1006 00007976678 2 15365232 0
Espero esta vez si haya mas informacion con la cual me puedan ayudar con este problemita.