¡Qué registro más lento!

[luisgutierrezb]

pues leer el registro en 40 segundos no me parece nada mal, aqui el chiste es que vayas leyendo lo que vas necesitando, como el clasico regedit, que lee primero las llaves principales, si le das click abre otra, pero no se pone a leer todo lo que hay debajo de ella...

[lpmlpm]

Puede ser que quien se esté comportando lento sea tu control TListView, prueba agregando estas lineas de código en tu procedimiento:

Código Delphi [-]

Procedure TFFondo.LlenarLista;
...
begin
  Lista.Items.BeginUpdate;
 ...  //tu código
  Lista.Items.EndUpdate;
end;

[Mick]

Uno de los cuellos de botella que tienes es que no llamas a
Lista.BeginUpdate;
Debes llamar a esta metodo al principio de la funcion de llenado de datos, y cuando acabes de añadir todos lo nodos, al final de la funcion llama a:
List.EndUpdate;
Cada vez que añades un nodo al TListView, este se redibuja, y esto es lento de modo que si añades 1000 nodos tendras 1000 redibujados, añadiendo el codigo que he indicado le indicas al TListView que no se refresque de modo que se redibujara una sola vez , al final de la funcion, cuando se llame a List.EndUpdate.

Esto es aconsejable hacerlo, con todos los objetos visuales que almacenan items o strings , no solo TListView, ya que acelera enormente las inserciones.

Ademas de esto no se si habra algun otro cuello de botella, ya que realmente un tlistview es lento debido a que cada insercion exige pedir un bloque de memoria, pero pruebalo (normalmente el uso de este sistema hace que las inserciones sean 20 o 30 veces mas rapidas).

Saludos

[ixMike]

Ok, muschísimas gracias!!!!!!!!!!!!!!!!!!

Probaré lo del BeginUpdate-EndUpdate.

Había oído por ahí que eran lentas las lista (TListView y TTreeView), pero me sorprendía que lo fueran tanto...
También había leído que el registro era lento...

Hasta la próxima

P.D. Perdón mi tardanza en contestar.