Как удалить одинаковые строки из динамического массива в StringList?

Stilet

procedure TForm1.N3Click(Sender: TObject);

var

  isa:integer;

begin

// Создаем временную анонимную переменку

with TStringList.Create do

 begin

// Устанавливаем для нее сортировку и игнор при попытке добавить элемент, который уже есть

  Sorted := true;

  Duplicates := dupIgnore;

//Добавляем весь текст. При этом должна (не уверен) происходить проверка каждого на задвоенность.

  Text := sl.Text;

//Возвращаем назад но уже без дубликатов

  sl.Text := Text;

//Убираем анонимную переменную.

  free;

 end;

 listbox1.Clear;

 for isa:=0 to sl.Count-1 do

 listbox1.Items.insert(isa,extractfilename(sl.Strings[isa]));

 showmessage('Повторяющиеся треки были успешно удалены!');

end;

Пост написан при поддержке РостБанк.

Выгодные вклады в надежном банке по высоким процентам.

тема на форуме

Возникла необходимости отправлять большие запросы типа UPDATE tablename SET photo1=»содержание_фото» WHERE id=»5″. При выполнении такого запроса выскакивает ошибка: «Got a packet bigger than ‘max_allowed_packet’ bytes». Как решить проблему? (читать всё…)

Как нарисовать рамку для Image по нажатию на Image? (читать всё…)

Как сделать несколько условий в такой выборке: (читать всё…)

Как определить количество строк в текстовом файле? (читать всё…)

Помогите, пожалуйста. Как правильно написать этот код? Чтобы выводилась таблица со значениями из базы данных? У меня таблица вот так отображается, в одну строку: 0 * 12,39 0 Итого к оплате 0 0 0 0 0 0
Совсем не корректно. (читать всё…)

(читать всё…)

Надо, чтобы при нажатии на стрелки в активное окно приходило сообщение, а не переключался фокус на другое окно. Как это сделать? (читать всё…)

tavrocotaps

В Series добавляются точки методом AddXY, поздже необходимо анализировать цвет точек, для вывода табличных данных (в таблицу данные берутся при помощи Series.YValue). Подскажите, как получить цвет, которым отображается точка со значением YValue? (читать всё…)

Я перенесла сайт на локальный хостинг Apach. Пытаюсь открыть одну страницу для редактирования в Modx а мне пишут что страница на сей момент редактируется и мол ждите. Мне сказали что я делала бэкап при открытой сессии и мол ее нужно удалить. Подскажите каким образом я могу это исправить? (читать всё…)