Doppelte Werte aus Memo entfernen

[Crazymodder]

Hallo alle zusammen. Ich habe in einer Memo mehrere Werte pro Zahl eine Zeile ich möchte nun gerne doppelte Werte aus der Memo löschen. Würde mich sehr freuen wenn mir jemand sagen könnte wie das geht.
Danke im Vorraus
Crazymodder

[mkinzler]

Durchgehen und Einträge vergleichen (.IndexOf())

[Crazymodder]

könnte das vllt jemand nochmal an einem beispiel zeigen. Es ist ja nicht nur eine Zahl die immer doppelt vorkommt sondern immer andere und unterschiedlich anzahl.
Danke würde mich sehr freuen.

[mkinzler]

Wie sehen die Einträge aus?

[Crazymodder]

Es sind zahlen meinetwegen so
1
5
7
9
1
10
5
7

Die doppelten also 1,5,7 müssten weg aber es können auch andere sein und ach mehr.

[mkinzler]

Delphi-Quellcode:

For i := Memo.Lines.Count -1 downto 2 do
    for j := i-1 downto 1 do
    begin
        if Memo.IndexOf( j) = Memo.IndexOf( i) then Memo.Lines.Delete(i);
    end;

getippt und nicht getestet

[Crazymodder]

Mh thx very nett funktioniert
Danke

[Matze]

Bei vielen Einträgen wäre es sicher schneller, wenn man den Memo-Text in eine StringList kopiert, darin die Filterung der Einträge vornimmt und in einem Rutsch zurück ins Memo kopiert, anstelle in jedem Schleifendurchgang direkt mit der VCl zu arbeiten. Bei wenigen Einträgen macht sich der Unterschied jedoch kaum bemerktbar, sind es relativ viele, dann hingegen schon.

[Hawkeye219]

Für Notfälle:

Delphi-Quellcode:

procedure RemoveDuplicates (aList: TStrings); 
var
  i : Integer;
begin
  aList.BeginUpdate;
  try
    for i := aList.Count - 1 downto 1 do
      if (aList.IndexOf(aList[i]) < i) then
        aList.Delete (i);
  finally
    aList.EndUpdate;
  end;
end;

Gruß Hawkeye

[Crazymodder]

Super thx super nett für die Hilfe hgab es jetzt erst in StringList kopieren lassen und dann sortieren und zurück super nice thx very much.