Busqueda de registro lenta

[jafera]

Podria ser que el error estuviera en este prodedimiento?

He intentado ejecutar con f7 y cada vez que entra en el begin, si no se cumple nunguno de los dos id salta al end final y allí se queda el cursor, hago click en el formulario y vuelve al begin, end y así sin parar.

Código Delphi [-]
 
procedure TF_Camions.JvDBGrid2DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        If F_ModulDades.Camions_AuxACTUAL.Value = 'N' then
        begin
                JVDBGrid2.Canvas.Brush.Color := clMoneyGreen;
                JVDBGrid2.DefaultDrawColumnCell(rect,DataCol,Column,State);
        end;
        if DataCol = 4 then
        begin
                if Pos('X', F_ModulDades.Camions_AuxCODI_CAMIO.Text ) > 0 then
                begin
                        TDrawGrid(sender).Canvas.Font.Color:= clRed;
                        TDrawGrid(Sender).Canvas.Brush.Color:=clYellow;
                        TdbGrid(sender).DefaultDrawColumnCell(Rect, Datacol, Column, State);
                end;
        end;
end;

[ecfisa]

Hola jafera.

Podria ser que el error estuviera en este prodedimiento?

No conozco el componente JvDBGrid, pero sinceramente no lo creo. Lo único que podría tardar un poco es la función Pos si se aplicase sobre un campo de texto extensísimo, pero por el nombre pareciera ser un código...

Ese comportamiento ¿ Sucede solamente en esa parte de la aplicación ?

Saludos.

[jafera]

Buenos días.

Efectivamente Ecfisa, el comportamiento erroneo es solo en esta parte del programa, aunque lo que me hace perder el norte es que este fallo no se produzca siempre sinó aleatoriamente. Con las investigaciones es casi seguro que el error no está en el doble click.

Puede que sea en el form create, form show o algo así, a lo que llegué más cerca de reproducir el error fue en el código que pasé ayer, ya que después de entrar en el begin, el cursor se clavaba en el end y no salía de allí hasta que clicaba en el formulario y a continuación presionaba F9

Gracias

Josep

[[Chris]]

Hola Jafera y todos los compañero del Club!

Te recomiendo que desactives/quites (comentes) la línea que utiliza Locate. Luego has nuevamente las pruebas.

Realmente, Locate es una función muy lenta y consume y desperdicia demasiados recursos si utilizas un DB en red tipo Firebird. Locate solo debería de utilizarse para grupos de datos muy pequeños. Un grupo de 1,500 registros no es precisamente pequeño, más si éstos deben ser transportados por la red.

Otro problema que podría estar empeorando el uso de Locate, es que estás utilizando objetos para los campos. Por ejemplo: "Buscar_CamioID", "Camions_ParcID". Estos objetos deben ser actualizados cada vez que se cambia el cursor, lo que origina un gran consumo de recurso. Además, no sabemos si su implementación interna tenga problemas, cómo una fuga de memoria por ejemplo. Mejor utiliza algo más eficiente cómo por ejemplo: "MiTabla.FieldByName('id')".

Me gustaría saber que base de datos utilizas.

Si encuentras que Locate es el problema, entonces sería oportuno que empieces a pensar en otra arquitectura para conseguir lo que quieres. No esperes una respuesta a: "Cómo hacer más rápido a Locate" porque realmente, Locate no puede ser más rápido. Algo más rápido que Locate, es algo que no sea Locate.

Saludos!

[jafera]

Gracias Chris.

Como puse en mi primer post uso Delphi 6 y Firebird 1.5 (de momento), digo de momento ya que quiero migrar a 2.5 pero como uso el ordenador del trabajo y el de casa a la vez y en el trabajo tenemos 1.5, no puedo cambiarme hasta que no actualizemos a 2.5.

Este programa no usa una red, se utiliza en máquina local, todo en el disco C.

Como dije, en las pruebas que hice ayer se quedaba bloqueado en el JvGrid2DrawColumnCell, entraba en el begin y se quedaba en el end sin pasar de ahí (usando F7).

Saludos

[roman]

Tratar de concluir algo en cuanto al rendimiento a partir de depurar un evento de redibujado como lo es el DrawColumnCell es sumamente difícil ya que la misma depuración incide sobre las veces que se genera el evento.

Haz la prueba que menciona Chris.

// Saludos

[jafera]

Ok, pero si comento el locate, como hago para que me muestre el registro?

Saludos

Edito:
He comentado la linea locate.
El resultado es que cada vez que hago un doble click va al primer registro, en 20 click ni un fallo.
He vuelto a activar esta linea y a la segunda ha fallado

Josep