buenos dias amigos del foro, pense que tenia la solucion pero me da problemas este codigo
Code:
_______________________________________________________________
procedure TForm1.BitBtn2Click(Sender: TObject);
Var
Archivo, Campos: TStringList;
I, J: Integer;
begin
Archivo:= TStringList.Create;
Campos:= TStringList.Create;
try
Archivo.LoadFromFile('c:\HV.txt');
for I := 0 to Archivo.Count -1 do
begin
Campos.Clear;
Campos.CommaText:= Archivo[i];
If DataModule2.Table2.Locate('CODEMP',Campos[0],[]) then
begin
DataModule2.Table2.Edit;
DataModule2.Table2Z001.Value:= strtofloat(Campos[1]);
DataModule2.Table2.Post;
end;
end;
finally
Archivo.Free;
Campos.Free;
end;
_____________________________________________________
el campos[0] me trae un valor pequeño el cual busca en la table, cuando corro el procedimiento y desavilito el contenido del if no se detiene el proceso termina la busqueda bien con el locate pero el problema es cuando avilito la edicion y guardado el proceso de queda guindad. que puede ser???
__________________
____________________________
Un saludo a todos...
|