Liliya Kamenchuk
Валерий Большаков
Создаём StringList с автосортировкой. Заносим в него текст из Memo. Он автоматически сортируется. Потом текст из StringList переносим обратно в Memo.
var
MemoText : TStringList;
begin
MemoText := TStringList.Create;
MemoText.Sorted := True; //автосортировка
MemoText.Duplicates := dupAccept; //разрешаем дубликаты
MemoText.Text := Memo1.Text;
Memo1.Clear;
Memo1.Text := MemoText.Text;
FreeAndNil(MemoText); //не забываем освобождать ресурсы
end;
Похожие вопросы