Doppelte Strings in einer Liste finden

[Der schöne Günther]

Das ist aber schon ziemlich speziell. Eine TStringList kann man z.B. sortieren lassen, aber du willst ja einiges mehr als nur sortieren.

Ich würde einfach deine Liste (Array, TStringsList, was auch immer) durchgehen und ein TDictionary<String, Integer> aus System.Generics.Collections befüllen - Integer ist die Anzahl der Vorkommen.

Dann die <String, Integer>-Paare sortieren, und zwar nach ihrer Anzahl.

[Tahtu]

Zitat von Der schöne Günther:

Ich würde einfach deine Liste (Array, TStringsList, was auch immer) durchgehen und ein TDictionary<String, Integer> aus System.Generics.Collections befüllen - Integer ist die Anzahl der Vorkommen.

Die Idee find ich gut. Allerdings kann ich das auch mit TStringList realisieren, indem ich auf TStringList.Values zugreife.

Danke!

[Rollo62]

Bei Spring4D gibt es einige Exoten, da könnte was dabei sein.

Rollo

[a.def]

Wie wäre es hiermit?

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
type
 PHisto = ^THisto;

 THisto = packed record
  sString: string;
  iCount: Integer;
 end;

 function Compare(Item1, Item2: THisto): Integer;
 begin
  Result := THisto(Item2).iCount - THisto(Item1).iCount;
 end;

var
 Histo: PHisto;
 HistoList: TList;
 i, j: Integer;
 bCont: Boolean;
begin
 Memo2.Lines.Clear;

 HistoList := TList.Create;

 try
  for i := 0 to Memo1.Lines.Count - 1 do
   begin
    bCont := True;
    New(Histo);
    Histo^.iCount := 0;
    Histo^.sString := Memo1.Lines.Strings[i];

    for j := 0 to HistoList.Count - 1 do
     begin
      if PHisto(HistoList.Items[j]).sString = Histo^.sString then
       begin
        bCont := False;
        Dispose(PHisto(Histo));
        Break;
       end;
     end;

    if bCont then
     begin
      for j := 0 to Memo1.Lines.Count - 1 do
       begin
        if Memo1.Lines.Strings[j] = Histo^.sString then
         Inc(Histo^.iCount);
       end;

      HistoList.Add(Histo);
     end;
   end;

  HistoList.Sort(@Compare);

  for i := 0 to HistoList.Count - 1 do
   Memo2.Lines.Add(IntToStr(PHisto(HistoList.Items[i]).iCount) + ' - ' + PHisto(HistoList.Items[i]).sString);
 finally
  for i := HistoList.Count - 1 downto 0 do
   begin
    Dispose(PHisto(HistoList.Items[i]));
    HistoList.Delete(i);
   end;

  HistoList.Free;
 end;
end;

[t.roller]

http://stackoverflow.com/questions/2...list-very-fast
http://docwiki.embarcadero.com/Libra...ist.Duplicates