FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Ayuda con este error????
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????????
__________________
____________________________ Un saludo a todos... |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|