关于计算重复数据次数的算法问题，请各位指教

[pxsisan]

面对以上stringgrid里的文字（这表格不连数据库的），想统计出来重复字的数量（结果 冯：3，徐：2） 个数为1的不显示统计，怎么写代码？

[日立奔腾浪潮微软松下联想]

如果用数据库的话很容易：select xxx, count(xxx) from tablename group by xxx;
但是你没用到数据库，可以用TDictionary<string, integer>建立字典统计一下

[半道道]

遍历整个字符串，利用HashMap建立字典，时间复杂度O(N) + O(LogN) ，但是数据量大的话，内存可能撑不住。 之前遇到一面试题：字符串文本大小为1TB，如何统计数据次数？ 利用分治策略，将数据切割到有限小，分不到不同计算机上进行处理，最后合并统计，利用MapReduce也可以统计。

[日立奔腾浪潮微软松下联想]

还可以，就是实现比较繁琐，用泛型TDictionary<string, integer>可以很简单解决

[pxsisan]

引用 4 楼 早打大打打核战争 的回复:

还可以，就是实现比较繁琐，用泛型TDictionary<string, integer>可以很简单解决

不会用啊，请指教！

[日立奔腾浪潮微软松下联想]

uses System.SysUtils, System.Generics.Collections;

procedure StatGrid(const Grid: TStringGrid);
var
  D: TDictionary<string, integer>;
  S: string;
  P: TPair<string, integer>;
  i: integer;
begin
  D := TDictionary<string, integer>.Create;
  for i := Grid.FixedRows to Grid.RowCount - 1 do
  begin
    S := Grid.Cells[Grid.FixedCols, i];
    if D.ContainsKey(S) then D[S] := D[S] + 1 else D.Add(S, 1);
  end;

  for P in D do
    if P.Value = 1 then
      writeln(P.Key)  // 怎样显示或存储看你的需要
    else
      writeln(Format('%s:%d', [P.Key, P.Value]));  // 怎样显示或存储看你的需要
  D.Free;
end;

使用：StatGrid(StringGrid1);

[pxsisan]

语句精炼，值得学习！

[pxsisan]

这个问题已经解决了，我用以下方法解决的。
var
tempList,strList,cemplist:TStringList;
i,s,m,n,t,c1,k1:Integer;
begin
edit5.Text:='';
s:=0;
strList:= TStringList.Create; cemplist:= TStringList.Create; tempList:= TStringList.Create;
try
for c1:=0 to stringgrid2.RowCount-1 do
strList.Add(stringgrid2.Cells[1,c1+1]);

for i:=1 to strList.Count-1 do
begin
if tempList.IndexOf( strList.Strings[i])=-1 then
begin
tempList.Add( strList.Strings[ i ] );
end
end;
for s:=0 to templist.Count-1 do
begin
m:=0;
for k1:=0 to strlist.Count-1 do
begin
if templist.Strings[s]=strlist.Strings[k1] then
begin
m:=m+1
end;
end;
cemplist.Add(inttostr(m));
end;
for t:=0 to cemplist.Count-1 do
if cempList.strings[t]='1' then
begin
cemplist.Delete(t);
templist.Delete(t);
cemplist.Insert(t,'');
templist.Insert(t,'');
end;
for i:=0 to tempList.Count-1 do
if cempList.strings[i]<>'' then
begin
edit5.Text:= edit5.Text+tempList[ i ]+cempList[i]+'次';
end;

finally
tempList.Free;
strList.Free;
cemplist.Free;
end;
end;