Добавление имен файлов в ListBox и их открытие

[P@radise]

Сообщение от evg_m

for j:=0 to MatchesMask.items.count -1 do 
  MatchesMask.items.strings[j]:=extractfilename(MatchesMask.items.strings[j]);

MatchesMask.items.strings - не воспринимает. Пишет ошибку, 'boolean' does not contain a member named 'items'

[evg_m]

from

Sl.Add(Dir + str.Name);

to

Sl.Add(str.name);

Просто НЕ добавлять к имени этот путь (dir)

[P@radise]

Сообщение от evg_m

from

Sl.Add(Dir + str.Name);

to

Sl.Add(str.name);

Просто НЕ добавлять к имени этот путь (dir)

Спасибо за помощь!!

Сообщение от evg_m

И как после такого будешь различать что математика, а что физика. к какой группе относится, если информация о группе удалена.
Более того как запустить учебник, если ты не знаешь в какой он папке.

Я теперь понял о чем ты говорил

Можно как-нить реализовать, чтобы в ListBox записывались все файлы без пути к ним, и при этом еще и открывались???

[evg_m]

ДВА списка.
1.Невидимый (TstringList) полный список сканирования папок. с полными путями.
2. Список показа Tlistbox
копирование из StringList в Listbox нужных строк и запоминание при этом индекса строки в полном спсике.

for j:=0 to stringList.count-1 do begin
   if .... then  begin
    listbox.Items.Addobject(stringlist.strings[j], TObject(j)); 
//  TObject(j) 'это будет индекс в полном спсиске сохраненный вмете со строкой  Listbox
  end;
end;

при выборе в Listbox по сохранненому индексу обращаемся в полный список

j:=Listbox.itemIndex;
if j>=0 then begin
  n:=integer(listbox.Items.objects[j]); //достали индекс полного списка 
end
else n:=-1;
if n>=0 then 
  f:=stringList.strings[n]; // достали полный буть

[P@radise]

Сообщение от evg_m

ДВА списка.

for j:=0 to stringList.count-1 do begin
   if .... then  begin
    listbox.Items.Addobject(stringlist.strings[j], TObject(j)); 
//  TObject(j) 'это будет индекс в полном спсиске сохраненный вмете со строкой  Listbox
  end;
end;

stringlist.strings[j] - здесь ругается. Пишу так:

Form2.listbox1.Items.Addobject(Form2.stringlist.Items.Strings[j], TObject(j));

а так списки просто дублируются и не доходит что писать в if .... then begin
P.S. Сорри, я новичок в этом еще

[P@radise]

Сообщение от evg_m

ДВА списка.
1.Невидимый (TstringList) полный список сканирования папок. с полными путями.
2. Список показа Tlistbox
копирование из StringList в Listbox нужных строк и запоминание при этом индекса строки в полном спсике.

for j:=0 to stringList.count-1 do begin
   if .... then  begin
    listbox.Items.Addobject(stringlist.strings[j], TObject(j)); 
//  TObject(j) 'это будет индекс в полном списке сохраненный вместе со строкой  Listbox
  end;
end;

Поясните пожалуйста, куда вставить данный код.

в мою процедуру DirSearch (поиск файлов в папке и подпапках) или....? Я ее вызываю потом кнопкой

procedure DirSearch(Dir: string; Mask : string; SL: TStrings);
var str: TSearchRec;
begin
  Dir := IncludeTrailingBackslash(Dir);

  if FindFirst(Dir + '*.*', faAnyFile, str) = 0 then
    repeat
      Application.ProcessMessages;

      if (str.Attr and faDirectory) <> 0 then begin
        if (str.name <> '.') and (str.name <> '..') then
                DirSearch(Dir + (str.name), Mask, sl)
      end
      else
        if MatchesMask(ExtractFileName(str.Name), Mask) then
          Sl.Add(Dir + (str.Name));
    until FindNext(str) <> 0;
  FindClose(str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Hide;
Form2.Show;
         DirSearch('C:\ЭБ', '*.exe', Form2.listbox1.Items);

Самостоятельно у меня ничего не получается, помогите плиииззз!!!

[evg_m]

Поясните пожалуйста, куда вставить данный код.

код что делает?
ЗАПОЛНЯЕТ Listbox некими значениями из первоначального списка значит и вставлять его надо ТАМ где ХОТИМ и когда готовы формировать нужный нам список. видимо это ...

Я ее вызываю потом кнопкой

Для использования предварительно должен быть заполнен ИСХОДНЫЙ список StringList

в мою процедуру DirSearch (поиск файлов в папке и подпапках) или...

теперь должна заполнять не ListBox а наш StringList. А уж после этого по мере необходимости (по кнопочке) чистить и заполнять ListBox.

[evg_m]

На будущее развитие проекта рекомендую прислушаться к данному совету.

В принципе можно предварительно создать каталог в отдельном файле, там же можно указать принадлежность к какой либо группе

каталог можно организовать с помощью ini файла примерно такой структуры

[наименование раздела]
наименование учебника в данном разделе = ссылка на файл учебника

[Математика]
первый класс =matem\book1.doc
второй класс =matem\book2.doc
[Русский язык]
первый класс =rus\book1.doc
второй класс =rus\book2.doc
[первый класс]
математика =matem\book1.doc
русский =rus\book1.doc
[второй класс]
математика =matem\book2.doc
русский =rus\book2.doc

а для работы использовать функционал TiniFile.
список разделов ReadSections
список учебников раздела ReadSection
конкретный учебник ReadString

[ZuBy]

зачем усложнять все?

если стоит d2009 или выше, то проблем вообще не может быть...

используй TListView, там есть реальная группировка, можно создать пару колонок
в caption записать только имя во второй колонке с 0-ой шириной (если не хочешь чтобы видели) вписать полный путь к файлу...

P.S. я считаю это правильным решением, чем баловаться со списком и TListBox'ом