Удаление одинаковых строк из массива

[Алексей_2012]

Здравствуйте, уже дня два бьюсь над алгоритмом удаления одинаковых строк из динамического массива строк, вот все мои старания, помогите, пожалуйста довести до ума

procedure TForm1.Button1Click(Sender: TObject);
var a:array of string;
    b:array of string;
    i,j:integer;
    counts:integer;
begin
  j:=0;
  counts:=memo1.lines.count;
  setlength(a,counts);
    setlength(b,counts);
  for i:=0 to counts-1 do a[i]:=memo1.lines[i];
  memo1.Clear;
  for i:=0 to counts-1 do
  begin
  if a[i]<>a[i+1] then b[i]:=a[i];
  inc(j);
  end;
  for i:=0 to j do memo1.lines.Add(b[i]);
  a:=nil;
  b:=nil;
end;

[BDA]

var
  ts: tstringlist;
begin
  ts := tstringlist.Create;
  ts.Sorted := true;
  ts.Duplicates := dupIgnore;
  ts.Text := Memo1.Text;
  Memo1.Text := ts.Text;
  ts.Free;
end;

[Stilet]

with TStringList.Create do begin
 Duplicates:=dupIgnore;
 for i:=0 to memo1.lines.counts-1 do Append(memo1.lines[i]);
 // теперь в списке нет дубликатов
 for i:=0 to Count-1 do
  что-то делаем с элементами посредством Strings[i]
 free;
end;

Идея ясна?

[Алексей_2012]

не ясна, мемо для наглядности, а так удаляем строки из уже созданного и заполненного стринг листа

[BDA]

Если ts - исходный stringlist, то:

with TStringList.Create do begin
  Sorted := true;
  Duplicates := dupIgnore;
  Text := ts.Text;
  ts.Text := Text;
  free;
end;

[Алексей_2012]

а как это работает? Зачем там сортировка? А зачем free в обработчике писать? Можно же в событиях формы это сделать

Ладно, пока не разобрался в Вашем алгоритме, но суть в том что работает, вот то, что получилось

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;

И все же если можно объясните как это работает?

Да, и еще, у меня есть процедура сортировки, описаная в procedure TForm1.N10Click(Sender: TObject); как мне ее вызвать в процедуре удаления?

[Serge_Bliznykov]

Алексей, на будущее, если Вы обрабатываете список и в процессе обработки количество записей уменьшается (а именно так и происходит в случае удаления строк), то обрабатывать записи нужно либо в циклах While \ repeat until
либо в цикле for, но от последней записи к первой:

for i:=Список.Count-1 downto 0 do
  if условие_удаления then УдалитьИзСписка_i-й_элемент

[Stilet]

Зачем там сортировка?

Вообще для удаления дубликатов она нужна, хотя кажись в данном случае без нее можно (не уверен). Нужно в хелпе почитать обязательна ли она или нет. Возможно дубликаты ищутся бинарным поиском, а без сортировки он не работает.

А зачем free в обработчике писать?

4
Чтоб память не потерять. with дает анонимную переменную. Как ты ее потом будешь освобождать? По какому имени?.

объясните как это работает?

// Создаем временную анонимную переменку
with TStringList.Create do
 begin
// Устанавливаем для нее сортировку и игнор при попытке добавить элемент, который уже есть
  Sorted := true;
  Duplicates := dupIgnore;
//Добавляем весь текст. При этом должна (не уверен) происходить проверка каждого на задвоенность.
  Text := sl.Text;
//Возвращаем назад но уже без дубликатов
  sl.Text := Text;
//Убираем анонимную переменную.
  free;
 end;

[Алексей_2012]

Большое спасибо за описание, но все же

Да, и еще, у меня есть процедура сортировки, описаная в procedure TForm1.N10Click(Sender: TObject); как мне ее вызвать в процедуре удаления?

Сортировка по не возрастанию; или придется создавать процедуру, вырезать в нее из Н10 клик и потом писать имя процедуры созданной в н10 клик и в процедуре удаления дублей?

А на будущее, как удалять дубликаты из массива? Заполнить стринглист и по такому же алгоритму? Ну на делфи так можно, а на паскале вить нет, или я не прав?

[Stilet]

как удалять дубликаты из массива?

1) Надо просто их в массиве не допускать
2) Переписывать в новый массив.