Saludos... Pretendo recorrer una tabla paradox con delphi 6 con el siguiente codigo:
Código Delphi
[-]
ModuloDatos.TablaProductos.First;
Cd := '';
While Not ModuloDatos.TablaProductos.Eof Do Begin
If Cd=ModuloDatos.TablaProductosFARMACO.AsString Then Begin
ModuloDatos.TablaProductos.Edit;
ModuloDatos.TablaProductosBORRABLE.AsBoolean := False;
End Else Cd := ModuloDatos.TablaProductosFARMACO.AsString;
ModuloDatos.TablaProductos.Next;
End;
ModuloDatos.TablaProductos.First;
lo que pretendo es que si al recorrer la tabla que esta ordenada por FARMACO hay 2 o mas FARMACOS iguales que marque BORRABLE a false al resto que no sean el primero.
Con este codigo me falla...
Aguien me puede decir que me esta pasando??? Gracias