Memo nach vorhandenen Werten durchsuchen

[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