Gracias Roman por ayudarme tienes razon la ultima fila del TXT estaba en blanco y me daba ese error, este es el codigo que utilizo para realizar una busqueda de un campo que se encuentra en el txt y es buscado en una tabla e insertando los campos separados por coma en la misma tabla;
Code:
_______________________________________________________________
procedure TForm1.BitBtn3Click(Sender: TObject);
Var
ArchivoCsv, Campos: TStringList;
I, J: Integer;
begin
ArchivoCsv := TStringList.Create;
Campos := TStringList.Create;
try
ArchivoCsv.LoadFromFile('c:\HV.txt');
for I := 0 to ArchivoCsv.Count -1 do
begin
Campos.Clear;
Campos.CommaText := ArchivoCsv[i];
If DataModule2.Table1.Locate('Ficha',Campos[0],[locaseinsensitive,lopartialkey])then
begin
DataModule2.Table1.Edit;
DataModule2.Table1.Fields[1].Value := Campos[1];
DataModule2.Table1.Fields[2].Value := Campos[2];
DataModule2.Table1.Post;
end;
end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
end;
_______________________________________________________
Gracia a todos;
