перебор файлов

[Ralf_ru]

Госпада помагите...
Ищу файлы с помощью 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, а может ещё что?

[Ntlegend]

searchRec.name - имя найденого файла, файлы ищуться по маске filename..
возникает вопрос: если файл найден по маске - то зачем его снова проверять на соответствие этой маске??

[Stilet]

Ошибка вылезает не потому что Виста, а потому что ты скорее всего выходиш за пределы, когда присваиваеш a[n] значение.
Поставь условие на проверку можно ли присваивать такому элементу массива, или пользуй динамические массивы. А функция тут не причем

[Ralf_ru]

SearchRec.name - выдает полный путь с именем папки...
как мне вытащить именно имя файла?

[Ntlegend]

есть 2 способа:
1) ручками ищи последний символ '\' все шо после него - имя файла
2) ExtractFileName

[Ralf_ru]

за ExtractFileName спасибо...
а вот ручками как прописать можешь привести пример кода?

[Stilet]

а вот ручками как прописать можешь привести пример кода?

Зачем?? Тебе ж сказали - ExtractFileName. Че его перепрописывать?

[Ralf_ru]

для себя интересно...

[FaTaL]

Ну так открой исходник функции и посмотри.

[Ntlegend]

var i:integer;
     s:string;//тут хранится полнуй путь к файлу
     FN:string;//сюда запишем имя файла
begin
//находим последний символ '\'
for i:=Length(s) downto 1 do
 if s[i]='\'
  then break;
//копируем имя файла.. оно наинается со следующего символа..
FN:=Copy(s, i+1, Length(s)-i)
//ищем последнюю точку
for i:=Length(FN) downto 1 do
 if s[i]='.'
  then break;
//удаляем расширение с имени файла
Delete(FN, i, Length(FN));
end;