Szybkie usuwanie powtórzeń z Memo

0

Witam, potrzebuję szybko usunąć wszystkie duplikaty z memo pozostawiając tylko jedno powtórzenie.

0

OK, problem rozwiązany.

 procedure TForm1.Button1Click(Sender: TObject);
begin
  RemoveMemoDuplicates(memo1);
end;

procedure TForm1.RemoveMemoDuplicates(ctrlMemo: TMemo);
Var sl : TStringList;
begin
  // Removes duplicates, sorts results
  sl := TStringList.Create;
  try
    sl.Sorted := true;
    sl.Duplicates := dupIgnore;
    sl.Text := ctrlMemo.Text;
    ctrlMemo.Text := sl.Text;
  finally
    sl.Free;
  end;
end;

1 użytkowników online, w tym zalogowanych: 0, gości: 1