Aus einem TMemo doppelte Strings zählen und dann löschen?

[Kedariodakon]

Memo inhalt ist ja nichts anderes als eine StringList...

1. Kopierst den Inhalt vom Memo in eine StringList
2. Sortierst die StringList
3. nimmst den letzten Eintrag in nen TempString, löschst diesen und setzt den Temp Count auf 1
4. nimmst den TempString und überprüfst diesen mit dem Letzten der Liste, Wenn gleich inc( count ) und löschst ihn und beginnst wieder bei 4 wenn ungleich schreibst ins memo Tempstring + ' = ' InttoStr( Count ) und beginnst mit punkt 3, wenn kein eintrag mehr da = Ende...


Bye