Ошибка, Error 202: Stack Overflow Опции

[Bokul]

На самом деле етот исходник с етого же форума(в "FAQ", раздел Файлы, "Поиск файла по директориям")

Код

procedure SearchDir(fn, Dir:string);
var
SRec: SearchRec;
ckl:integer;
F:file;
regs:registers;
begin
if dir[length(dir)]<>'\' then Dir:=Dir+'\';

FindFirst(Dir+fn, AnyFile, SRec);
while DosError = 0 do begin
WriteLN(Dir+SRec.Name);
FindNext(SRec);
End;
FindFirst(Dir+'*.*', Directory, SRec);
while DosError = 0 do begin
with SRec do
if (Attr and 16 <> 0 ) and (Name[1]<>'.') then {и заодно - что в етой строчке проверяется?}
SearchDir(fn,Dir+Name);
FindNext(SRec);
end;
end;

Begin {program}
SearchDir('turbo.*', 'D:\');
End.

Размер диска 57 гиг, зайнято 50. Успевает просканировать где-то 20 гиг и наверно 'вешается' когда
встречает папку с фильмами. Можна ли боротся с этим?

Сообщение отредактировано: volvo - 27.12.2005 5:28