[Tonyy]

у меня есть 2 ЛистБокса. в один загружаются имена файлов с расширением segd? в другой с расширением sgy. затем в процессе выполнения программы необходиом обращение к файлам из первого листбокса и из второго. но тут происходит ошибка. и компилятор пишет, что файла не существует. файла не существует потому что путь к файлу берется из листбокса в который грузили последним а имя файла из другого листбокса. вопрос почему так получается. можно ли как-то исправить чтобы имена всех файлов были правильными?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

procedure ListsgyFilesInDirectory(Dir: string; Strings: TStrings); var  // dir - например C:\sgy\   rSearchRec: TSearchRec; begin   if ((Dir = '') or (not Assigned(Strings))) then     Exit;   Dir := IncludeTrailingPathDelimiter(Dir);   if FindFirst(Dir + '*.sgy', faAnyFile, rSearchRec) = 0 then     try       repeat         if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then           if (rSearchRec.Attr and faDirectory) <> 0 then             ListSgyFilesInDirectory(Dir + rSearchRec.Name, Strings)           else             Strings.Add(rSearchRec.Name);       until FindNext(rSearchRec) <> 0;     finally       FindClose(rSearchRec);     end; end;   procedure ListSegdFilesInDirectory(Dir1: string; Strings: TStrings); var // dir - например C:\segd\   rSearchRec: TSearchRec; begin   if ((Dir1 = '') or (not Assigned(Strings))) then     Exit;   Dir1 := IncludeTrailingPathDelimiter(Dir1);   if FindFirst(Dir1 + '*.segd', faAnyFile, rSearchRec) = 0 then     try       repeat         if ((rSearchRec.Name <> '.') and (rSearchRec.Name <> '..')) then           if (rSearchRec.Attr and faDirectory) <> 0 then             ListSegdFilesInDirectory(Dir1 + rSearchRec.Name, Strings)           else             Strings.Add(rSearchRec.Name);       until FindNext(rSearchRec) <> 0;     finally       FindClose(rSearchRec);     end; end;   procedure TForm1.vssClick(Sender: TObject); begin if open2.Execute then  begin   ListsgyFilesInDirectory(ExtractFilePath(open2.FileName),lst2.Items) ; end; end;   procedure TForm1.segdClick(Sender: TObject); begin if open1.Execute then  begin   ListSegdFilesInDirectory(ExtractFilePath(open1.FileName),lst1.Items) ; end; end;

результат: если мы последним в листбокс загружали segd, то при обращении к sgy-файлам имя будет - c:\segd\name.sgy
а если последним загружали sgy, то при обращении в segd имя будет - c:\sgy\name.segd
вот такой парадокс. почему?

[Страдалецъ]

А вам не кажется что в Strings неплохо бы добавить не только имена файлов, но и пути к ним?

[Tonyy]

ну да. тогда вроде бы нормально. но когда имена без путей - выглядит красивей. если бы был один листбокс все было бы нормально. кто-нибудь может объяснить почему?
и можно ли как нибудь сделать так чтобы в листбоксах были бы только имена а полные пути для разных листбоксах были бы правильными?

[vladislav147]

Ну так к тексту обработки добавьте X:\путь.
Result: 'X:\путь' + Listbox1.Items[i]; ????