Memo nach vorhandenen Werten durchsuchen

[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;