delphi - 使用线程用 TStringList 中的项目填充 TComboBox

Question

我正在使用 ComboBox 来显示许多项目的列表(别担心，项目之间的差异允许通过 AutoComplete 快速选择 :-) .

此列表是在创建表单时创建的(OnCreate 事件)，但为了表单在填充时不会卡住，我添加了一个 TThread 来执行填充到TStringList，然后赋给ComboBox.Items。

它可以工作，但是当显示表单时，直到线程完成并且 Combo 中的内容已经显示时，它才正确绘制。不应该使用线程保存这个吗？

这是我的代码:(目前不是用IDE写的，所以可能会有错别字……)

type
  TLoadList = class(TThread)
  public
    constructor Create;
    destructor Destroy; override;
  private
    SL: TStrings;
    procedure UpdateCombo;
    procedure Execute; override;
  end;

implementation

uses uMain, HebNumFunc; //The main form unit

constructor TLoadList.Create;
begin
  FreeOnTerminate := True;
  SL := TStringList.Create;
  inherited Create(True);
end;

procedure TLoadList.UpdateCombo;
begin
  MainFrm.YListCombo.Items := SL;
end;

procedure TLoadList.Execute;
begin
  for var I: Integer := 1 to 6000 do SL.Add(HebNumber(I));  //HebNumber This is a function that converts the value of the number to a Hebrew alphabetic value
  Synchronize(UpdateCombo);
end;  

destructor TLoadList.Destroy;
begin
  SL.Free;
  inherited;
end;

HebNumber函数在HebNumFunc单元中是这样声明的:

function HebNumber(const Number: Integer): string;

const
  Letters1: Array of String = ['','א','ב','ג','ד','ה','ו','ז','ח','ט'];
  Letters10: Array of String = ['','י','כ','ל','מ','נ','ס','ע','פ','צ'];
  Letters100: Array of String = ['','ק','ר','ש','ת','תק','תר','תש','תת','תתק'];

  function _ThousandsConv(const Value: Integer): string;
  var
    Input, Hundreds, Tens, Some: Integer;
  begin
    if Value <= 0 then Exit('');
    
    if Value = 1 then Exit(Format('%s'' ', [Letters1[Value]]));

    if Value in [2..9] then Exit(Format('%s"א ', [Letters1[Value]]));

    if Value >= 10 then
    begin
      Input := Value;
      Hundreds := Input div 100;
      Input := Input mod 100;
      Tens := Input div 10;
      Some := Input mod 10;
      Result := Format('%s%s%s"א ', [Letters100[Hundreds], Letters10[Tens], Letters1[Some]]);
    end;
  end;

var
  Input, Thousands, Hundreds, Tens, Some: Integer;
begin
  Input := Number;
  Thousands := Input div 1000;
  if Thousands > 999 then Exit('חריגה');

  Input := Input mod 1000;
  Hundreds := Input div 100;
  Input := Input mod 100;
  Tens := Input div 10;
  Some := Input mod 10;

  if (Thousands > 0) and (Hundreds + Tens + Some = 0) then
    Exit(Format('%sתתר', [_ThousandsConv(Thousands - 1)]));

  Result := Format('%s%s%s%s', [_ThousandsConv(Thousands),
    Letters100[Hundreds], Letters10[Tens], Letters1[Some]]);

  if Result.Contains('יה') then Exit(Result.Replace('יה', 'טו'));
  if Result.Contains('יו') then Result := Result.Replace('יו', 'טז');
end;

我在 OnCreate 事件中这样调用它:

var
  LoadList: TLoadList;
begin
  LoadList := TLoadList.Create;
  LoadList.Start;
  {...}
end;

除了调用创建和运行线程外，OnCreate 事件不会导致表单着色延迟。也没有任何额外的操作在其中执行。

Answer 1

您的代码没有任何问题。将 6000 个项目添加到 ComboBox 非常慢，并且可能会干扰 Form 的初始绘制，因为将项目添加到 ComboBox 也在主 (GUI) 线程中运行。

您不能在后台线程中移动该分配，因为使用 GUI 控件必须在主线程中完成。

出现您看到的问题是因为线程内的代码运行得非常快，并且会在窗体有机会正确绘制自身之前与主线程同步。

可能的解决方案很少:

1. 因为后台线程中的代码运行速度很快，移除线程并直接在 OnCreate 事件处理程序中填充 ComboBox。

2. 将代码从 OnCreate 移至 OnShow 事件处理程序，以便在更接近显示表单的时间运行代码。但是，此事件可以多次触发，因此您需要额外的 bool 字段来仅填充 ComboBox 一次。

但是，这仍然不足以防止故障。为此，在线程中添加一个 Sleep() 以稍微减慢其执行速度，并为 Form 提供一些时间来完成其初始绘制。然后您可以调用 Synchronize() 来填充 ComboBox。

您可能需要对休眠期进行试验，因为较慢的计算机将需要更多时间来完成表单的绘制，但不要休眠太久，因为在这种情况下用户将能够访问空的 ComboBox。

procedure MainFrm.FormShow(Sender: TObject);
begin
  if not FFilled then
    begin
      FFilled := True;
      TThread.CreateAnonymousThread(
        procedure
        var
          sl: TStringList;
        begin
          sl := TStringList.Create;
          try
            for var I: Integer := 1 to 6000 do
              sl.Add(HebNumber(I));
          
            // Sleep for some small amount of time before synchronizing
            // with the main thread to allow form to fully paint itself
            Sleep(100);

            TThread.Synchronize(nil,
              procedure
              begin
                YListCombo.Items := sl;
              end);
          finally
            sl.Free;
          end;
        end).Start;
    end;
end;

---

注意:我使用匿名线程来填充 ComboBox，因为这种方法不需要创建额外的类，并且代码更简单。但是，如果您不想，则不必更改代码的那部分。