¡Qué registro más lento!

[ixMike]

Hola,
Veréis, estoy haciendo un programa (bueno, casi todos los del foro estamos haciendo alguno, ), en el que tengo un TComboBox, un TButton y un TListView (entre otros, pero al usar éstos es cuando tengo problemas). En el TComboBox escribo una clave de registro (por ejemplo "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion"), y al darle al botón, el TListView se llena con todas las claves y datos que hay en esa clave de registro. El problema está en que cuando escribo algunas claves (como "HKEY_CLASSES_ROOT" o "HKEY_LOCAL_MACHINE\Software\Classes", entre otras), que contienen miles de claves y datos, pues el programa reacciona con una lentitud increíble (hasta 40 segundos).
Pero, ¿qué pasa? ¿Por qué tarda tanto? ¿Cuál es el problema, dónde está el fallo? ¿Alguien tiene alguna sugerencia?
NOTA: Uso Delphi 3 Std en Windows XP, el TListView usa iconos (una para claves, otro para valores alfanuméricos y otro para valores numéricos o binarios), y no solo lee los nombres, sino también los valores. El código para leer el registro hace más cosas, entre comprobaciones y memorizar las claves que se van escribiendo.
Aquí está el código que utilizo (resumido a lo importante):

Código Delphi [-]
 
unit regFondo;
{...}
type
  ERegConvertError = class (ERegistryException);
  TFFondo = class(TForm)
    lista: TListView;  //Esta el la lista que se llena con las claves
    CDireccion: TComboBox;  //AQuí es donde escribo la clave
    BIrDireccion: TSpeedButton; //Este es el botón que pulso para leer las claves
    estado: TStatusBar;
    BAtras: TSpeedButton;;
    BAdelante: TSpeedButton;
    ilListaSmall: TImageList;
    liLista: TImageList;
    {...}
    Procedure LlenarLista;
    procedure Explorar(path: string; editback: boolean);
    procedure BIrDireccionClick(Sender: TObject);
    {...}
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  FFondo: TFFondo;
  CurKey: Integer;
  CurPath: String;
  Registro: TRegistry;
  Atras, Adelante: TStrings;
implementation
{$R *.DFM}
{Aquí hay varias funciones para pasar las claves de String a Integer, y hacer comprobacioens:
RKeyToStr(rkey: integer): String; //Parametro: HKEY_LOCAL_MACHINE; devulve: "HKEY_LOCAL_MACHINE"
StrToRKey(rkey: string): integer; //Al contrario que la anterior
IsValidRoot(root: integer): boolean; //Si el valor introducido no es tipo HKEY_lo_que_sea devulve False
IsValidRootStr(root: string): boolean; //Como la anterior, pero con texto
GetRoot(path: string): integer; //Parametro: "HKEY_LOCAL_MACHINE\Software\Microsoft"; devulve: HKEY_LOCAL_MACHINE}
Procedure TFFondo.LlenarLista;
var
s: tstrings;
n: integer;
nodo: TListItem;
tipo: TRegDataType;
begin
Lista.Items.Clear;
s:=TStringList.Create;
Registro.GetKeyNames(s);
if s.Count>0 then for n:=0 to s.Count-1 do
  begin
  nodo:=Lista.Items.Add;
  nodo.Caption:=s[n];
  nodo.SubItems.Add('Clave de registro');
  end;
s.Clear;
registro.GetValueNames(s);
if s.Count>0 then for n:=0 to s.Count-1 do
  begin
  nodo:=Lista.Items.Add;
  nodo.Caption:=s[n];
  if nodo.Caption='' then nodo.Caption:='(Predeterminado)';
  tipo:=Registro.GetDataType(s[n]);
  Case tipo of
    rdString: begin
       nodo.ImageIndex:=1;
       nodo.SubItems.Add('Alfanumerico');
       nodo.SubItems.Add(Registro.ReadString(s[n]));
       end;
    rdExpandString: begin
      nodo.ImageIndex:=1;
      nodo.SubItems.Add('Alfanumerico expandido');
      nodo.SubItems.Add(Registro.ReadString(s[n]));
      end;
    rdInteger: begin
        nodo.ImageIndex:=2;
        nodo.SubItems.Add('Numerico');
        nodo.SubItems.Add(IntToHex(Registro.ReadInteger(s[n]),8)+'('+IntToStr(Registro.ReadInteger(s[n]))+')');
        end;
    rdBinary: begin
       nodo.ImageIndex:=2;
       nodo.SubItems.Add('Binario');
              //Aquí falta el código para poner en la lista algo tipo "AA BB 2F 3C 43 51 A7 B0 AC ..." pero aún no lo he hecho
       end;
    rdUnknown: begin
        nodo.ImageIndex:=2;
        nodo.SubItems.Add('Desconocido');
        end;
   end;
  end;
s.Free;
end;
Procedure TFFondo.Explorar(path: string; editback: boolean);
var
oldpath: string;
begin
estado.panels[0].Text:='Leyendo registro...';
If editback then oldpath:=RKeyToStr(CurKey)+CurPath;
try
CurKey:=GetRoot(path);
CurPath:=copy(path,length(RKeyToStr(curkey))+1,length(path)-length(RKeyToStr(curkey)));
Registro.RootKey:=CurKey;
CDireccion.Text:=path;
registro.CloseKey;
Registro.OpenKey(CurPath,false);
LlenarLista;
if editback then
  begin
  atras.add(oldpath);
  adelante.add(RKeyToStr(CurKey)+CurPath);
  end;
if Lista.Items.Count>0 then lista.ItemFocused:=Lista.ITems[0];
except
Application.MessageBox('Se produjo un error','Error',Mb_IconError);
end;
end;
procedure TFFondo.BIrDireccionClick(Sender: TObject);
begin
If CDireccion.Text[length(CDireccion.Text)]<>'\'then CDireccion.Text:=CDireccion.Text+'\';
Explorar(CDireccion.Text,true);
CDireccion.SelectAll;
end;
{...}
end.

Gracias.

[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.