Memo nach vorhandenen Werten durchsuchen

[Crazymodder]

Hi hoffe Ihr könnt mir helfen
Ich will alle Werte, die in einer Memo stehen mit einander vergleichen also jeder Wert mit jedem.
Wenn ein gleicher gefunden wurde soll sich eine neue Form öffnen und hineinschreiben in welcher Zeile die Werte gleich sind.
Hoff das das realisierbar thx im Vorraus
Crazymodder

[Klaus01]

Hallo,

das ganze sollte mit zwei Schleifen zu erschlagen sein:

Delphi-Quellcode:

for i:=0 to Memo1.lines.count - 1 do
  for j:=0 to Memo1.lines.count - 1 do
    if Memo1.lines.strings[i] = Memo1.lines.Strings[j] then
      begin
        if i <> j then
          begin
          end;
      end;

Du mußt dann nur noch dafür sorgen, das keine doppelten Einträge
in die andere Form übertragen werden.

Grüße
Klaus

[shmia]

Kleine Verbesserung. So werden die Vergleiche nicht doppelt durchgeführt.

Delphi-Quellcode:

for i:=0 to Memo1.lines.count - 2 do 
  for j:=i+1 to Memo1.lines.count - 1 do 
    if Memo1.lines.strings[i] = Memo1.lines.Strings[j] then 
      begin 

      end;

[Crazymodder]

Thx thx für diese schnllen Antworten das Problem wäre dann damit gelöst danke danke