Проверка на одинаковые записи при добавление в ListBox

[Nice42ru]

Всем здравствуйте! У меня на форме есть ListBox, button, и диалог с выбором папок(multisellect), при нажатии на кнопку появляется диалог с выбором, допустим вы выбрали 5 папок и они добавились в listbox, но вот проблема, если выбрать эти папки снова, они опять появится в listbox, как от исключить добавление в listbox одинаковых записей?

[Shouldercannon]

Посмотри тут

[Nice42ru]

Неполучается у меня переделать под выбор папок(

[psycho-coder]

Посмотри тут

ИМХО гемор

var
  i: Integer;
begin
  if OpenDialog1.Execute then
  begin
    for i := 0 to OpenDialog1.Files.Count - 1 do
    begin
      if ListBox1.Items.IndexOf(OpenDialog1.Files.Strings[i]) = -1 then
        ListBox1.Items.Add(OpenDialog1.Files.Strings[i]);
    end;
  end;
end;

[Nice42ru]

У меня ещё есть процедура которая сканирует выбранную папку на подпапки и добавляет их в ListBox, можете помочь её дороботать, чтобы при добавлении не добавлялись те папки, которые уже добавлены? Заранее благодарен.
Вот процедура сама:

procedure FindIt(path, ext: string; aListBox: TListBox;
  spaces: boolean = false; level: integer = 0);
var
  SR: TSearchRec;
  s: string;
  i: integer;
begin
if Path <> '' then
  if Path[Length(Path)] <> '\' then Path:=Path+'\';
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        aListBox.items.Add(path+SR.Name + '\');
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

[psycho-coder]

По идее вот так, толком не разбирался, так мельком

procedure FindIt(path, ext: string; aListBox: TListBox;
  spaces: boolean = false; level: integer = 0);
var
  SR: TSearchRec;
  s: string;
  i: integer;
begin
if Path <> '' then
  if Path[Length(Path)] <> '\' then Path:=Path+'\';
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        if aListBox.Items.IndexOf(path+SR.Name + '\') = -1 then // <<<<<<<<<<-----
          aListBox.items.Add(path+SR.Name + '\');                       // <<<<<<<<<<-----
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;

[Nice42ru]

Спасибо! Всё прекрасно работает! Неподскажите как c помощью этой процедуры добавлять не только подпапки а ещё ту папку которая выбрана?

Уже по вашему примеру сделал вот такой кусочек кода

if aListBox.Items.IndexOf(Path + '\') = -1 then
        alistbox.items.Add(path + '\');

но куда не вставляю неработает, подскажите пожалуйсто решение

[psycho-coder]

Если я Вас правильно понял то как то так. Опять же код не проверял

procedure FindIt(path, ext: string; aListBox: TListBox;
  spaces: boolean = false; level: integer = 0);
var
  SR: TSearchRec;
  s: string;
  i: integer;
begin
if Path <> '' then
  if Path[Length(Path)] <> '\' then Path:=Path+'\';
if FindFirst(Path+Ext, faAnyFile, SR) = 0 then
  begin
    repeat
    if (SR.Attr = faDirectory) then
      if (SR.Name <> '.') and (SR.Name <> '..') then
        begin
        s:='';
        for i:=0 to level-1 do
          s:=s+'    ';
        if aListBox.Items.IndexOf(path+SR.Name + '\') = -1 then // <<<<<<<<<<-----
          aListBox.items.Add(path+SR.Name + '\');                       // <<<<<<<<<<-----
        if aListBox.Items.IndexOf(Path + '\') = -1 then                 // <<<<<<<<<<----------
          alistbox.items.Add(path + '\');                                       // <<<<<<<<<<----------
        Inc(level);
        if spaces then
          FindIt(Path+sr.Name+'\',ext,aListBox,true,level)
        else
          FindIt(Path+sr.Name+'\',ext,aListBox);
        Dec(level);
        end;
    until FindNext(SR) <> 0;
    FindClose(SR);
  end;
end;