计数项目频

Question

嗨，我是使用Delphi和我有这个项的StringList：

45 
A15 
015 
A15 
A15 
45 

我要处理它，使将有 的每个元素的出现次数第二的StringList：

45 [2] 
015 [1] 
A15 [3] 

我该怎么用Delphi来做到这一点？

Answer 1

你可以使用字典：

Frequencies := TDictionary <String, Integer>.Create; 
try 
    // Count frequencies 
    for Str in StringList do 
    begin 
    if Frequencies.ContainsKey (Str) then 
     Frequencies [Str] := Frequencies [Str] + 1 
    else 
     Frequencies.Add (Str, 1); 
    end; 

    // Output results to console 
    for Str in Frequencies.Keys do 
    WriteLn (Str + ': ' + IntToStr (Frequencies [Str])); 
finally 
    FreeAndNil (Frequencies); 
end; 

唯一的问题可能是在结果出现的顺序完全是随机的，并在哈希表的内部工作dependes。

感谢daemon_x为全单位代码：

program Project1; 

{$APPTYPE CONSOLE} 

uses SysUtils, Classes, Generics.Collections; 

var Str: String; 
    StringList: TStrings; 
    Frequencies: TDictionary <String, Integer>; 

begin 
    StringList := TStringList.Create; 

    StringList.Add('45'); 
    StringList.Add('A15'); 
    StringList.Add('015'); 
    StringList.Add('A15'); 
    StringList.Add('A15'); 
    StringList.Add('45'); 

    Frequencies := TDictionary <String, Integer>.Create; 

    try 
    // Count frequencies 
    for Str in StringList do 
    begin 
     if Frequencies.ContainsKey (Str) then 
     Frequencies [Str] := Frequencies [Str] + 1 
     else 
     Frequencies.Add (Str, 1); 
    end; 

    // Output results to console 
    for Str in Frequencies.Keys do 
    WriteLn (Str + ': ' + IntToStr (Frequencies [Str])); 

finally 
    StringList.Free; 
    FreeAndNil(Frequencies); 
end; 

end. 

Answer 2

因为我没有德尔福截至目前已安装的I编码这个在我的头上。让我知道它是如何为你工作的。 Stringlist1是包含项目的原始列表，stringlist2是空的，将用于存储您想要的内容。

for i := 0 to stringlist1.Count - 1 do 
begin 
    if (stringlist2.Values[stringlist1[i]] = '') then 
     stringlist2.Values[stringlist1[i]] := '1' 
    else 
     stringlist2.Values[stringlist1[i]] := 
      IntToStr(StrToInt(stringlist2.Values[stringlist1[i]]) + 1); 
end; 

Answer 3

1. 排序原始列表，

   list1.sort; 
   

2. 创建一个新的列表

   list2:=TStringList.Create; 
   

3. 遍历排序列表来算每一个不同的项目 并存储一个在结果列表的对象字段中计数（或者如果你不使用它，只是类型将count存入指针并将其作为对象存储）。

   previtem:=list1[0]; 
   count:=1; 
   for i:=1 to list1.count-1 do 
   begin 
       if list1[i]=previtem then 
       inc(count) 
       else 
       begin 
       list2.addObject(previtem,pointer(count)); 
       previtem:=list1[i]; 
       count:=1; 
       end; 
   end; 
   list2.addObject(previtem,pointer(count)); 
   

最后，再次重复，以计数添加到字符串

for i:=0 to list2.count-1 do 
    list2.items[i]:=list2[i]+' ['+inttostr(list2.objects[i])+']';