Este código es super lento

[strelok]

Hola, os dejo el código aquí abajo:

Resulta que demora y se me congela el formulario 1 o 2 segundos:

Como lo podemos optimizar?

Código Delphi [-]
with DBGridProveedores.DataSource do
  begin
    DataSet.First;
    SetLength(provSelecc, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    SetLength(provSeleccNames, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    while not DataSet.Eof do
    begin
      if DBGridProveedores.SelectedRows.Find(DataSet.Bookmark, inx) then  //Si la fila fue seleccioanda
      begin
         provSelecc[i] := DBGridProveedores.Columns[0].Field.AsString;  //Guardo en el array
         provSeleccNames[i] := DBGridProveedores.Columns[1].Field.AsString;  //Guardo en el array
         Inc(i);
      end;
      DataSet.Next;
    end;
    //   ShowMessage(IntToStr(length(provSelecc)));  //Muestro cantidad de filas seleccionadas
  end;

[[AgustinOrtu]]

Lo que se me ocurre que podes hacer y que suele mejorar la performance, es deshabilitar el refresco de los componentes visuales mientras realizas tu proceso, y decirle que haga todo de un plumazo al final:

Código Delphi [-]
  DataSet.DisableControls;
  try
    { codigo de procesamiento aca }
  finally
    DataSet.EnableControls;
  end;

Hace tiempo que no trabajo con componentes Data-Aware, no estoy seguro de si hay algun metodo similar en el componente DataSource

[Young]

Me parece que 1 o 2 segundos no es mucho dependiendo de la cantidad de registros, lo que si molesta en estas situaciones es que se congele el formulario, por lo tanto te sugiero que lo hagas en una tareas separada:

Código Delphi [-]
uses System.Threading;

.
.

TTask.Run(
    procedure
    begin
with DBGridProveedores.DataSource do
  begin
    DataSet.First;
    SetLength(provSelecc, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    SetLength(provSeleccNames, DBGridProveedores.SelectedRows.Count); //Establecer el largo del array
    while not DataSet.Eof do
    begin
      if DBGridProveedores.SelectedRows.Find(DataSet.Bookmark, inx) then  //Si la fila fue seleccioanda
      begin
         provSelecc[i] := DBGridProveedores.Columns[0].Field.AsString;  //Guardo en el array
         provSeleccNames[i] := DBGridProveedores.Columns[1].Field.AsString;  //Guardo en el array
         Inc(i);
      end;
      DataSet.Next;
    end;
    //   ShowMessage(IntToStr(length(provSelecc)));  //Muestro cantidad de filas seleccionadas
  end;
end);

¿Por otro lado porque haces la operacion sobre el dbgrid y no sobre el dataset?

Saludos.

[strelok]

Muchas gracias a ambos, sin embargo, parece que le erré, no es esa la función que causa que el formulario se congele entre 1 y 2 segundos.
Es cuando llamo al procedimiento relacionarProv
¿Puedo hacer lo siguiente?

         TTask.Run(
          procedure
          begin
              relacionarProv;
          end);

[mamcx]

Y que hace relacionarProv?

[strelok]

Código Delphi [-]
var
inicio, fin : Integer;
begin
    inicio := 1;      //Empiezo de la 1, porque 0 es el título de columna
    fin := vlRelacionarProveedores.RowCount; //Cantidad de filas
    SetLength(self.provBDprovHojaCal, fin, 2); //Seteo alto y ancho del array
    while(inicio < fin) and (vlRelacionarProveedores.Cells[1, inicio] <> '')  do
    begin
        self.provBDprovHojaCal[inicio-1, 0] := vlRelacionarProveedores.Cells[0, inicio]; //Guardo columna 1
        self.provBDprovHojaCal[inicio-1, 1] := extraerIDProveedor(vlRelacionarProveedores.Cells[1, inicio]); //Guardo columna 2  ID
        Inc(inicio);
    end;
    SetLength(self.provBDprovHojaCal, inicio-1, 2); //Ajustar el array a los elementos insertados
end;

Resulta que fin = 2, porque solo estoy relacionando 2 mmmm...

[ecfisa]

Hola.

Para detectar el motivo de la demora, también sería necesario ver el código de la función extraerIDProveedor (así como también conocer con cuantos registros estas trabajando).

Saludos

[Casimiro Notevi]

Y también sería necesario saber qué estás haciendo y qué quieres conseguir.

[[AgustinOrtu]]

El problema es que meter en hilos en segundo plano codigo que actualiza la interfaz de usuario te va a traer problemas de sincronizacion, ya que solo el hilo principal (es decir, en donde corre la Vcl) se pueden actualizar los controles.

Para poder usar hilos debes separar completamente los datos de tu interfaz grafica, de esta manera podes procesarlos en segundo plano y luego actualizar cuando este procesamiento termina

[Neftali [Germán.Estévez]]

De primeras decir que das pocos datos para hablar de rendimiento.
Es decir, lo lento o rápido de este código, aparte del código dependerá de qué tipo de consulta estás utilizando, números de registros, qué tipo de cursos estás utilizando,...

Por otro lado, sin saber muy bien lo que quieres obtener, hay una línea que no me queda clara:

Código Delphi [-]
      if DBGridProveedores.SelectedRows.Find(DataSet.Bookmark, inx) then  //Si la fila fue seleccioanda

¿Si ya estás recorriendo los "seleccionados", porqué haces un Find para ver si la línea está seleccionada (segun el comentario)?
Revisa la ayuda sobre GotoBookmark.

[strelok]

El extraerID se los dejó por aquí:

var
IDprov: String;
i: Integer;
begin
   IDprov := '';
   i := 0;

   for i:= 1 to length(dato) do
   begin
      if(dato[i] = '-') then Break
      else IDprov := IDprov + dato[i];
   end;

   result := IDprov;
end;

[mamcx]

Aparte de todo, yo diria que meter hilos en si mismo es un problema. Un algoritmo secuencial deberia ser rapido antes de pensar en ponerlo paralelo (ademas que es poco comun que se usen hilos correctamente).

-----

Una optimizacion obvia si la idea es marcar que filas estan o no seleccionadas es reaccionar al evento de "seleccion/des-seleccion" de forma directa y actualizar el array, no al final en batch. Esto deberia SUSTANCIALMENTE reducir los tiempos.

[strelok]

Tienes razón, voy a intentarlo y comento más tarde o mañana.

Gracias a todos.