delphi - TListbox ，根据模式选择项目

Question

如果您的列表框包含许多项目并且您需要选择例如项目，则项目的选择会变得很痛苦。通过手动单击和选择 400 个项目。
有没有一种优雅的方法可以使用某个“ 通过模式函数 选择项目”从列表框中选择项目？

Answer 1

假设您有可以匹配模式的代码。让我们说它有这个接口(interface):

function MatchesPattern(const Value, Pattern: string): Boolean;

然后您可以使用以下功能选择所有匹配的项目:

procedure SelectMatchingItems(ListBox: TListBox; const Pattern: string);
var
  i: Integer;
begin
  for i := 0 to ListBox.Count-1 do
    ListBox.Selected[i] := MatchesPattern(ListBox.Items[i], Pattern);
end;

如果您准备使用匿名方法，那么您可以使用谓词。

procedure SelectMatchingItems(ListBox: TListBox; 
  const Matches: TFunc<string, Boolean>);
var
  i: Integer;
begin
  for i := 0 to ListBox.Count-1 do
    ListBox.Selected[i] := Matches(ListBox.Items[i]);
end;

后一种方法是最灵活的，如果你有一个具有足够功能的 Delphi，你应该如何解决这个问题。