Ayuda con este error????

[danytorres]

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????????

[ruina]

asi a primera vista parece que le estas intentando meter demasiadas cosas al BDE, lo cual es un error absurdo con ese algoritmo.

Lo que se me ocurre que pueda estar pasando es que no te esté separando los campos, por lo que Campos[0] en la instrucción DataModule2.Table2.Locate('CODEMP',Campos[0],[]) contenga una String demasiado larga (tipo "1,pepe,garcia,perez,calle granvia,1234345x,......")

mira a ver si con un trace o un showmessage puedes ver el valor de Campos[0].