Динамический массив строк

[hooko]

Привет народ! Надо найти файлы в заданном каталоге. Задача такова что, мне нужно записать все полные пути файлов в массив. Так как я не знаю заранее сколько файлов будет, решил использовать динамические массивы. Вот моя процедура:

procedure ScanDir(StartDir: string; Mask: string; list: array of string);
var
   SearchRec: TSearchRec;
   i: integer;
begin
   i:= 0;
   if Mask = '' then
     Mask := '*.*';

   if StartDir[Length(StartDir)] <> '\' then
     StartDir := StartDir + '\';

   if FindFirst(StartDir + Mask, faAnyFile, SearchRec) = 0 then
     begin
       repeat
         if (SearchRec.Attr and faDirectory) <> faDirectory then //если не папка
           begin
               i := Length(list);
               SetLength(list, Succ(i));
               list[i]:=StartDir + SearchRec.Name; //добавляем файл в динамичский массив!
           end
         else
           if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then
             begin //если папка, но не текущая и не та которая уровнем выше
               i := Length(list);
               SetLength(list, Succ(i));
               ScanDir(StartDir + SearchRec.Name + '\', Mask, list[i]); //ищем файлы в подкаталогах (или это сейчас не надо?)
             end;
         until FindNext(SearchRec) <> 0;
         FindClose(SearchRec); //очищаем структуру
     end;
end;

При компиляции выдает:

[DCC Error] Unit1.pas(45): E2008 Incompatible types

на строки

              SetLength(list, Succ(i));

В чем может быть проблема?
Читал docs.embarcadero.com, но так и не понял, что у меня в коде не совместимо.

p.s. сильно не пинайте. Сегодня я впервые использую динамические массивы!!!

[Serge_Bliznykov]

p.s. сильно не пинайте. Сегодня я впервые использую динамические массивы!!!

дело в том, что в Delphi для совместимости со старым Паскалем оставлены "открытые массивы" (open array) - это когда параметер процедуры/функции содержит описание массива без границ. Это появилось ДО появления динамических массивов.

Бороться с этим очень просто.
Опишите свой тип где-нибудь в секции глобальных переменных:

type TDynStringArray = array of string;

и измените описание процедуры на

procedure ScanDir(StartDir: string; Mask: string; list: TDynStringArray);
....

но вообще-то говоря, в Delphi есть прекрасный тип TStringList! Очень рекомендую пользоваться им вместо динамического массива!

[Аватар]

type TMyArray = array of string;

procedure ScanDir(StartDir: string; Mask: string; var list: TMyArray);
...
               ScanDir(StartDir + SearchRec.Name + '\', Mask, list); //ищем файлы в подкаталогах (или это сейчас не надо?)


var list: TMyArray;

  ScanDir('каталог','',list);