Ver Mensaje Individual
  #5  
Antiguo 25-04-2013
Avatar de Al González
[Al González] Al González is offline
In .pas since 1991
 
Registrado: may 2003
Posts: 5.604
Reputación: 30
Al González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en brutoAl González Es un diamante en bruto
Hola Ezecool.

Es poca la información que proporcionas, ayudaría conocer más sobre el "proceso complejo" que mencionas.

Si realmente el ciclo avanza (con Next, por ejemplo), entonces es muy probable que la propiedad EOF del conjunto de datos sí alcance el valor de True, sólo que alguna acción del proceso está causando que se ponga nuevamente False.

Teniendo a la mano los fuentes de la VCL (carpeta Source de Delphi) y sabiendo usar el depurador integrado, es fácil determinar si lo anterior ocurre y a razón de qué. Revisando el código fuente de la clase TDataSet (unidad DB.pas en Delphi 7 y Data.DB.pas en XE2), podemos ver que sólo hay dos lugares donde, explícitamente, la propiedad EOF de un conjunto de datos se pone en False:
Código Delphi [-]
procedure TDataSet.ActivateBuffers;
begin
  FRecordCount := 1;
  FActiveRecord := 0;
  FCurrentRecord := 0;
  FBOF := False;
  FEOF := False;  <-- Aquí
end;
...
function TDataSet.MoveBy(Distance: Integer): Integer;
var
  OldRecordCount, ScrollCount, I: Integer;
begin
  CheckBrowseMode;
  Result := 0;
  DoBeforeScroll;
  if ((Distance > 0) and not FEOF) or ((Distance < 0) and not FBOF) then
  begin
    FBOF := False;
    FEOF := False;  <-- Y aquí
    ...
Aprovechando el estupendo depurador de Delphi, lo siguiente es algo que puedes hacer para encontrar la causa del problema:
  1. Compila el proyecto con la opción "Use debug DCUs".
  2. Coloca un punto de ruptura en las dos sentencias anteriormente señaladas.
  3. En las propiedades de ambos puntos de ruptura añade la condición FEOF = True.
  4. Inhabilita los dos puntos de ruptura.
  5. Ejecuta el programa y déjalo listo para comenzar con el proceso problemático.
  6. Habilita nuevamente los puntos de ruptura.
  7. Dale al programa la orden de comenzar con el proceso.
  8. Si todo sale como se espera, el programa ha de detenerse en alguno de los dos puntos de ruptura.
  9. Agrega en las observaciones (watches) la palabra Name, eso te dará el nombre del componente que está poniendo su propiedad EOF en False.
  10. Si resulta que es el ClientDataSet sospechoso (si es otro sólo presiona F9 para continuar), abre la pila de llamadas (call stack). Eso te permitirá ver qué camino siguió e programa, rutina por rutina, hasta ponerse EOF en False.
  11. Copia aquí esa lista (la pila de llamadas) para que podamos echarle un vistazo.
Saludos.

Al.

Última edición por Al González fecha: 25-04-2013 a las 18:11:54.
Responder Con Cita