Работа с файлами, Гистограмма Опции

[Катя]

Помогите сделать так,чтобы не происходило переполнение стека.Что тут исправить?Заранее спасибо.

{$N+}
uses crt, dos;

const
   maxDegree = 19;
   step = 100 * 1024;

type

   TLong = array[0..maxDegree] of Integer;
var
   startDir : string;

   sizes : TLong;

procedure GetFiles(fn, dir : string; var L : TLong);
var
   search : SearchRec;
begin

      if dir[length(dir)] <> '\' then
       dir := dir + '\';

      FindFirst(dir + fn, AnyFile, search);

      while dosError = 0 do begin
         if search.attr <> $10 then begin
            writeln(search.name:15, (search.size div step) : 10);
            inc(L[search.size div step])
         end;
         FindNext(search);
      end;

      FindFirst(dir + '*.*', Directory, search);

      while doserror = 0 do begin
         if (search.attr and 16 <> 0) and (search.name[1] <> '.') then
          GetFiles(fn, dir + search.name, L);
         FindNext(search);
      end;

end;

Procedure Gyst(const arr: array of integer;
          const size: integer);
var
  i, j, max: integer;
  mult_by: double;
begin
  ClrScr;
  max := arr[1];
  for i := 1 to pred(size) do
    if max < arr[i] then max := arr[i];

  mult_by := 60 / max;
  for i := 1 to pred(size) do begin
    gotoxy(2, 2 + i); write((i*step div 1024):4, 'Kb: ');
    for j := 1 to Trunc(arr[i]*mult_by) do write(chr(178-byte(odd(i))));
    gotoxy(72, 2 + i); write(arr[i]:4);
  end;

end;

var
   i : byte;
begin

   clrscr;

   FillChar(sizes, sizeof(sizes),0);

   GetFiles('*.*','c:\', sizes);

   writeln;

   Gyst(sizes, Succ(maxDegree));
   ReadLn;
end.

не забываем пользоваться тегами !

Сообщение отредактировано: volvo - 5.11.2006 21:25

[volvo]

А ты в курсе, что "^C" - это значит, что ТЫ САМА нажала Ctrl+Break, чтобы остановить программу? Какие могут быть к программе после этого претензии? Проверяй свою систему, ибо у меня только что отработало на 6700 папок и 92000 файлов... И я не видел никаких "^C"

Я даже приблизительно не знаю, что может быть у тебя неправильно: 300 папок (при условии, что они все вложены друг в друга - это самый плохой вариант) потребуют 300*(256+4) байт динамической памяти, это всего чуть больше 76К, тебе же доступно почти 640К !!! Так что проблем отсюда быть не должно. Стек вообще не расходуется (от рекурсии я избавился)... Добавляй отладочную информацию и отлаживай программу на своей системе (попробуй после каждого pushStack выводить количество оставшейся доступной памяти через MemAvail, еще какую-нибудь информацию, я не знаю какую, но искать, почему программа работает "здесь", и не работает "там" я не могу, для этого надо отлаживать программу "там"), здесь тебе никто не помощник, потому что сбой ПОКА произошел только у тебя.

Попробуй распечатывать имена папок, которые добавляются (pushStack), и те, которые извлекаются (PopStack)... Так ты хотя бы будешь точно знать, на какой папке остановилось сканирование, может это чем-то поможет... Ну, и наконец, что, обязательно СРАЗУ тестировать на огромных объемах? Начинай проверять с маленьких, вложенных папок, чтобы в них было 20-50 подпапок и несколько сотен файлов, потом переходи к чуть большим числам, кто же сразу начинает с максимальных тестов при поиске ошибок...