为什么我的 StringGrid 在输入数万个条目后似乎速度变慢？自由帕斯卡

Question

我使用 Free Pascal 和 Lazarus IDE 编写了一个程序。简而言之，它递归地扫描目录并对每个文件进行“处理”（散列），然后将散列值和文件名输出到 StringGrid 中，该 StringGrid 会随着每个连续的文件而刷新。

它对于最多几千个文件来说效果很好，但是当你达到数万个文件时，它真的会变慢，可能每半秒处理一个文件，即使它只是一个几 Kb 的小文件。

负责代码的主要部分如下。谁能明白为什么当网格中的文件数量超过数万时我的程序会变慢？

procedure TForm1.HashFile(FileIterator: TFileIterator);
var
  SizeOfFile : int64;
  NameOfFileToHash, fileHashValue, PercentageProgress : string; 
  FI : TFileIterator;                      //File Iterator class
  SG : TStringGrid;

begin
  FI := TFileIterator.Create;
  SG := TStringGrid.Create(self);
  SizeOfFile := 0;
  fileHashValue := '';

  if StopScan = FALSE then                     // If Stop button clicked, cancel scan
    begin
    NameOfFileToHash := (FileIterator.FileName);
    SizeOfFile := FileSize(NameofFileToHash);
    StatusBar1.SimpleText := 'Currently Hashing: ' + NameOfFileToHash;
    fileHashValue := CalcTheHashFile(NameOfFileToHash); // Custom function, see below

    // Now lets update the stringgrid and text fields

    // StringGrid Elements:
    // Col 0 is FileCounter. Col 1 is File Name. Col 2 is Hash
    StringGrid1.rowcount:= FileCounter+1;
    StringGrid1.Cells[0,FileCounter] := IntToStr(FileCounter);
    Stringgrid1.Cells[1,FileCounter] := NameOfFileToHash;
    Stringgrid1.Cells[2,FileCounter] := UpperCase(fileHashValue);

    // Dynamically scroll the list so the user always has the most recently hashed
    // file insight and expand the columns in lie with their content width

    StringGrid1.row := FileCounter;
    StringGrid1.col := 1;
    StringGrid1.AutoSizeColumns;

    // Progress Status Elements: Most of these vars are global vars

    NoOfFilesExamined.Caption := IntToStr(FileCounter);
    PercentageProgress := IntToStr((FileCounter * 100) DIV NoOfFilesInDir2);
    Edit1.Caption := PercentageProgress + '%';
    TotalBytesRead := TotalBytesRead + SizeOfFile;
    edtTotalBytesExamined.Caption := FormatByteSize(TotalBytesRead);

    Application.ProcessMessages;
    FileCounter := FileCounter+1;
    end;
  SG.Free;
  FI.Free;
end;

完整的源代码可以从我的 SourceForge 页面获取，https://sourceforge.net/projects/quickhash/ 在“文件”下 -->如果您需要的话，可以使用“源代码”。

任何帮助感谢

泰德

Answer 1

作为一名德尔福人，我突然想到了两件事。
自动调整列大小。如果你幸运的话，它什么也不做。如果它沿着 10,000 行中的所有列前进，每次更新并执行 GetTextLength 来查看它是否适合，然后重新绘制网格......

所以工作 1 将是预设一些列大小并将其注释掉。
最多在扫描结束时执行一次。

谁会想要一次查看全部 10,000 多行？

我想我会将它们流式传输到文件中，并显示最后一页完整的内容以指示进度。然后我会使用简单的获取页面完整场景从文件中驱动我的用户界面。
取决于您对数据执行的操作，但您可以重新加载文件以进行进一步分析，对更改进行比较。

即使你坚持在内存中 有一个 TList 吗？ THashRecord 的。然后从那里驱动你的显示器，你就有机会了。

Answer 2

此外，大多数可视组件都有某种方法可以进行批量更新，如下所示：

Try
  Grid1.BeginUpdate;  
  for Row := low(inputArray) to high(InputArray) do
    Grid1.Append(InputArray[Row].data);
Finally
  Grid1.EndUpdate;
end;

上面显然是伪代码，但在组件的方法中搜索诸如 BeginUpdate/EndUpdate 之类的内容。使用这些将防止对每一行进行无端处理。即使您希望在填充时更新显示，您也可以每 10 或 100 行更新一次，而不是每行更新一次。

（显然，您可以使用 VirtualListbox 等，而不是像其他人提到的那样让组件管理每一行）。