统计项目频率

Question

您好，我正在使用 Delphi，我有一个包含以下项目的字符串列表：

45
A15
015
A15
A15
45

我想处理它并制作第二个字符串列表，其中包含 每个元素出现的次数：

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;

唯一的问题可能是结果出现的顺序完全随机，并且取决于哈希映射的内部工作。

感谢 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

1. 对原始列表进行排序，

   list1.sort;
   

2. 创建新列表

   list2:=TStringList.Create;
   

3. 迭代排序列表以计算每个不同的项目
   并将计数存储在结果列表的对象字段中（或者，如果您尚未使用它，只需将计数类型转换为指针并将其存储为对象）。

   previtem:=list1[0];
   计数：=1；
   对于 i:=1 到 list1.count-1 做
    开始
     如果 list1[i]=previtem 那么 
       包括（计数）
     别的
      开始
       list2.addObject(previtem,指针(count));
       previtem:=list1[i];
       计数：=1；
      结尾;
    结尾;
   list2.addObject(previtem,指针(count));
   

最后，再次迭代以将计数添加到字符串中

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

Answer 3

我在我的头上编写了这个代码，因为我现在还没有安装 Delphi。让我知道它对您有何作用。
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;