delphi – 如何跳过这个循环？

发布时间：2020-12-15 09:39:41 所属栏目：大数据来源：网络整理

导读：这是一个排序列表视图,在delphi中有50000个项目(字符串).如何快速搜索具有相同前缀单词的项目,然后跳过循环？该列表如下： aa.....ab cd//from hereab kkab liab mnab xy// to hereac xz... 我的意思是如何快速查找和复制前缀为ab并跳过循环的项目.假设在二

这是一个排序列表视图,在delphi中有50000个项目(字符串).如何快速搜索具有相同前缀单词的项目,然后跳过循环？

该列表如下：

aa.....
ab cd//from here
ab kk
ab li
ab mn
ab xy// to here
ac xz
...

我的意思是如何快速查找和复制前缀为ab并跳过循环的项目.假设在二元搜索中得到一个ab项的索引. ab cd到ab xy的索引是通过二进制搜索得到的.

非常感谢你.

编辑：我们感谢所有人的回答.

解决方法

如果您想要快速,请不要将数据存储在TListView中.

使用TStringList存储列表,然后在虚拟模式下使用TListView.

从TStringList.Items []读取比从TListView.Items []属性读取要快许多倍.

如果您确定列表中不存在void项,请使用以下命令：

procedure Extract(List,Dest: TStrings; Char1,Char2: char);
var i,j: integer;
    V: cardinal;
type PC = {$ifdef UNICODE}PCardinal{$else}PWord{$endif};
begin
  V := ord(Char1)+ord(Char2) shl (8*sizeof(char));
  Dest.BeginUpdate;
  Dest.Clear;
  for i := 0 to List.Count-1 do begin
  if PC(pointer(List[i]))^=V then begin
    for j := i to List.Count-1 do begin
      Dest.Add(List[j]);
      if PC(pointer(List[j]))^<>V then
        break; // end the for j := loop
     end;
     break; // end the for i := loop
  end;
  Dest.EndUpdate;
end;

您可以使用二进制搜索来更快地获得它.但是使用PWord()技巧,在50000项目列表中,您将不会注意到它.

请注意,PC(指针(List [i]))^ = V是复制的更快版本(List [i],1,2)= Char1 Char2,因为在比较期间没有创建临时字符串.但它只有在没有List [i] =”时才有效,即没有指针(List [i])= nil.

我添加了一个{$ifdef UNICODE}和sizeof(char),以便使用所有版本的Delphi(Delphi 2009之前和之后)编译此代码.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!