Mi aplicacion estas mui lenta

[Paulao]

Quando hago una busca en un universo de unos 2.000 archivo(.pas y .dfm), se queda mui lenta mi aplicacion. Abajo mis codigos:

Mi procedure de busca

procedure TForm1.BuscaTexto(path: string; const FileMask, tipo, tabela: string);
var
  SR: TSearchRec;
  txt: TextFile;
  Row: string;
  Found: Boolean;
  i: Integer;
  NroExt: TStrings;
begin
  NroExt:= TStringList.Create;
  try
    Varrer.Enabled := False;
    NroExt.Delimiter:= ';';
    NroExt.DelimitedText:= FileMask;
    path := IncludeTrailingPathDelimiter(path);
    for i:= 0 to NroExt.Count - 1 do
    begin
      if FindFirst(path + NroExt[i], faAnyFile - faDirectory, SR) = 0 then
        repeat
          Application.ProcessMessages;
          AssignFile(txt,path + SR.Name);
          Reset(txt);
          Found:= False;
          while not Eof(txt) and not Found do
          begin
            Readln(txt, Row);
            if Pos(tabela, Row) > 0 then
            begin
              ListBox1.Items.Add(tipo + ';' + tabela + ';' + SR.Name);
              Found:= True
            end
          end;
          CloseFile(txt);
        until FindNext(SR) <> 0
    end;
  finally
    NroExt.Free;
    Varrer.Enabled := True;
    FindClose(SR);
  end;
  //end;

  if FindFirst(Path + '*.*', faDirectory, SR) = 0 then
  begin
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
            TextFoundInFile(Path + SR.Name,'*.pas;*.dfm',tipo,tabela);
      until FindNext(SR) <> 0;
    finally

    end;
  end;
end;

Mi llamada a procedure

procedure TForm1.VarrerClick(Sender: TObject);
begin
  ClientDataSet1.Open;
  pth := IncludeTrailingPathDelimiter(edtDir.Directory);
  while not ClientDataSet1.Eof do
  begin
    //TextFoundInFile(pth,'*.pas;*.dfm',ClientDataSet1.FieldByName('xtype').AsString,ClientDataSet1.FieldByName('name').AsString);
    BuscaTexto(pth,'*.pas;*.dfm',ClientDataSet1.FieldByName('xtype').AsString,ClientDataSet1.FieldByName('name').AsString);
    ClientDataSet1.Next;
  end;
  ListBox1.Items.SaveToFile(ExtractFilePath(Application.ExeName) + 'Fontes.csv');
end;

[Casimiro Notevi]

Así a simple vista me parece que haces un bucle que repites tantas veces como ficheros hay. ¿Puede ser?

[ecfisa]

Hola Paulao.

La acción que realiza el algorítmo, leer cada línea de cada archivo .pas y .dfm hasta encontrar la palabra buscada, como toda búsqueda secuencial, es intrínsecamente lenta y por supuesto su tiempo de ejecución está relacionada en forma directa a la cantidad de archivos a revisar.

Creo también, que haber modificado la función por procedimiento e incluir la carga del TListBox dentro de la misma hace que todo sea un poco más lento. Así que retomando la función original, yo probaría si mejora el rendimiento de este modo:

Código Delphi [-]
function TForm1.TextFoundInFile(Ruta: string; const FileMask, Buscado, tipo: string): TStrings;
var
  SR: TSearchRec;
  txt: TextFile;
  Row: string;
  Found: Boolean;
  NroExt: TStrings;
  i: Integer;
begin
  NroExt:= TStringList.Create;
  try
    NroExt.Delimiter:= ';';
    NroExt.DelimitedText:= FileMask;
    Ruta:= IncludeTrailingPathDelimiter(Ruta);
    Result:= TStringList.Create;
    for i:= 0 to NroExt.Count - 1 do
    begin
      if FindFirst(Ruta + NroExt[i], faAnyFile - faDirectory, SR) = 0 then
        repeat
          Application.ProcessMessages;
          AssignFile(txt, Ruta + SR.Name);
          Reset(txt);
          Found:= False;
          while not Eof(txt) and not Found do
          begin
            Readln(txt, Row);
            if Pos(Buscado, Row) > 0 then
            begin
              Result.Add(tipo + ';' + Buscado + ';' + SR.Name);
              Found:= True
            end
          end;
          CloseFile(txt);
        until FindNext(SR) <> 0
    end
  finally
    NroExt.Free
  end
end;

LLamada:

Código Delphi [-]
  ...
  ListBox1.Items:= TextFoundInFile( pth,'*.pas;*.dfm',
    ClientDataSet1.FieldByName('xtype').AsString,
    ClientDataSet1.FieldByName('name').AsString);
  ...

Pero como te mencioné arriba, las búsquedas secuenciales son de por sí lentas y si sumamos a eso la lectura secuencial del DataSet...

Un saludo.