buenas tardes Sr del foro tengo un pequeño problema con un procedimieto que hago al ejecutarlo me da el siguiente error
Error:
-_________________________________________________
Exception EDBEngine Error Insufficient memory for this operation
___________________________________________________
el codigo que ejecuto es el siguiente;
Code:
______________________________________________________
procedure TForm1.BitBtn2Click(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.Table2.Locate('CODEMP',Campos[0],[]) then
begin
DataModule2.Table2.Edit;
DataModule2.Table2.Fields[1].Value := Campos[1];
DataModule2.Table2.Fields[2].Value := Campos[2];
DataModule2.Table2.Post;
end;
end;
finally
ArchivoCsv.Free;
Campos.Free;
end;
___________________________________________________
la tabla es una DB que tiene 1000 registros
nose que hacer????????