加快Delphi状态栏的更新速度

发布于 2024-10-18 11:41:11 字数 273 浏览 4 评论 0原文

在 Delphi 中更新状态栏需要很长时间！

示例：我搜索文件并在状态栏中显示找到和搜索的文件数：

OwnerForm.StatusBar1.SimpleText
     := Format('Searching (%d found in %d files) ...', [NumFound, Total]);

状态栏每更新 200 次，搜索时间就会增加大约 1 秒。

有没有什么方法可以减少这种过多的开销，但仍然更新用户的状态？

原文

Updating the status bar in Delphi takes so darn long!

Example: I search for files and display the number of files found and searched in the status bar:

OwnerForm.StatusBar1.SimpleText
     := Format('Searching (%d found in %d files) ...', [NumFound, Total]);

This adds approximately 1 second of time to the search for every 200 times the status bar is updated.

Are there any ways to reduce this excessive overhead, but still update the status for the user?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

心安伴我暖 2024-10-25 11:41:11

不要这么快更新状态栏。如果您更新状态如此频繁以至于对您的性能产生严重影响，用户将如何读取状态？

此外，我进行了一个小测试，结果显示它在 100 多毫秒内更新了状态栏 1000 次。这是我用了 5 年的廉价家用电脑上的。

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: Cardinal;
begin
  a := GetTickCount;
  for i := 0 to 1000 do
  begin
    StatusBar1.SimpleText := IntToStr(i);
  end;
  ShowMessage(IntToStr(GetTickCount - a));
end;

[编辑]

替代解决方案：

  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FLastUpdate: TDateTime;
  public
    procedure UpdateStatus(Status: string);
    procedure ForceStatus(Status: string);
  end;

procedure TForm1.ForceStatus(Status: string);
begin
  StatusBar1.SimpleText := Status;
  FLastUpdate := Now;
end;

procedure TForm1.UpdateStatus(Status: string);
begin
  if MilliSecondsBetween(Now, FLastUpdate) > 500 then
  begin
    StatusBar1.SimpleText := Status;

    FLastUpdate := Now;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: Cardinal;
begin
  a := GetTickCount;
  for i := 0 to 1000000 do
  begin
    // unimportant: progress
    UpdateStatus(IntToStr(i));
  end;
  // Important: final state
  ForceStatus(Format('Done in %d milliseconds', [GetTickCount - a]));
end;

Don't update your status bar this fast. How will a user be able to read the status if you update it so often that it has a serious impact on your performance?

Besides I ran a little test that shows it updates the status bar a 1000 times in just over 100 ms. This is on my 5 years old cheap home pc.

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: Cardinal;
begin
  a := GetTickCount;
  for i := 0 to 1000 do
  begin
    StatusBar1.SimpleText := IntToStr(i);
  end;
  ShowMessage(IntToStr(GetTickCount - a));
end;

[edit]

Alternative solution:

  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    FLastUpdate: TDateTime;
  public
    procedure UpdateStatus(Status: string);
    procedure ForceStatus(Status: string);
  end;

procedure TForm1.ForceStatus(Status: string);
begin
  StatusBar1.SimpleText := Status;
  FLastUpdate := Now;
end;

procedure TForm1.UpdateStatus(Status: string);
begin
  if MilliSecondsBetween(Now, FLastUpdate) > 500 then
  begin
    StatusBar1.SimpleText := Status;

    FLastUpdate := Now;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  a: Cardinal;
begin
  a := GetTickCount;
  for i := 0 to 1000000 do
  begin
    // unimportant: progress
    UpdateStatus(IntToStr(i));
  end;
  // Important: final state
  ForceStatus(Format('Done in %d milliseconds', [GetTickCount - a]));
end;

回复收藏 0 原文