![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 19.03.2009
Сообщений: 26
|
![]()
Госпада помагите...
Ищу файлы с помощью MatchesMask: type TFileName = string; TMatchesMask = function(TFileName:string;mask:stri ng): boolean; if FindFirst(filename, faAnyFile,SearchRec) = 0 then repeat if MatchesMask(searchRec.name,FileName ) then begin n := n + 1; a[n]:=(SearchRec.Name); end; until FindNext(SearchRec) <> 0; При чтении второго условия выдается ошибка - proect.exe raised too many consecutive exceptions : 'access violation at 0x00000000: read of address 0x00000000'. process stoped. В чем дело? Может в объявлении MatchesMask (неправильном), может потомучто в Viste, а может ещё что? |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
![]()
searchRec.name - имя найденого файла, файлы ищуться по маске filename..
возникает вопрос: если файл найден по маске - то зачем его снова проверять на соответствие этой маске??
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
![]() |
![]() |
![]() |
#3 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]()
Ошибка вылезает не потому что Виста, а потому что ты скорее всего выходиш за пределы, когда присваиваеш a[n] значение.
Поставь условие на проверку можно ли присваивать такому элементу массива, или пользуй динамические массивы. А функция тут не причем
I'm learning to live...
|
![]() |
![]() |
![]() |
#4 |
Пользователь
Регистрация: 19.03.2009
Сообщений: 26
|
![]()
SearchRec.name - выдает полный путь с именем папки...
как мне вытащить именно имя файла? |
![]() |
![]() |
![]() |
#5 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
![]()
есть 2 способа:
1) ручками ищи последний символ '\' все шо после него - имя файла 2) ExtractFileName
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 19.03.2009
Сообщений: 26
|
![]()
за ExtractFileName спасибо...
а вот ручками как прописать можешь привести пример кода? |
![]() |
![]() |
![]() |
#7 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
![]() Цитата:
I'm learning to live...
|
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 19.03.2009
Сообщений: 26
|
![]()
для себя интересно...
|
![]() |
![]() |
![]() |
#9 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
![]()
Ну так открой исходник функции и посмотри.
|
![]() |
![]() |
![]() |
#10 |
Форумчанин
Регистрация: 12.05.2007
Сообщений: 373
|
![]() Код:
Перемен! - требуют наши сердца. Перемен! - требуют наши глаза.
В нашем смехе и в наших слезах, И в пульсации вен: "Перемен!Мы ждем перемен!" |
![]() |
![]() |
![]() |
|
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перебор чисел (pascal) | mozdok15rus | Помощь студентам | 7 | 19.03.2009 17:54 |
Перебор и его сокращения | *Zimnij* | Общие вопросы C/C++ | 1 | 04.01.2009 14:38 |
Проблема с задачей на перебор.. | Nixond | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 06.10.2008 13:45 |
Перебор элементов матрицы | pikkk | Общие вопросы Delphi | 3 | 09.05.2008 14:45 |