Рекурсия и локальный массив

[Человек_Борща]

Доброго времени суток!

Строча функцию на тему случайного отбора файла из каталога, всплыла проблема.

Задачка:
Выбрать файлы определенного типа из каталога и его подкаталогов, и загнать их в 1 массив, затем рандомно выбрать 1 из них.

Траблы:
1. Массив объявлен как локальная переменная, каждый новый рекурсивный вызов создает новый экземпляр массива?
2. Если создать массив глобально, траблы будут?

Есть идеи?

[veniside]

1. да
2. нет

> Есть идеи?

3. передавать указатель на массив в рекурсивную функцию

[Serge_Bliznykov]

> Есть идеи?

я за глобальный массив + использовать динамические структуры (например, TStringList)

[Человек_Борща]

Взял в оборот глобальную переменную, полет нормальный =)

veniside, в тол не возьму ваш 3-й пункт. Как работать в первом вызове(самом первом)?

type
  TmyArray = array of string;
  PmyArray=^TmyArray;

procedure Recursive(aString:string; var aP:PmyArray = nil);
var
  aImgs:TMyArray;
begin
  Recursive('...',@aImgs);
 if Assigned(aP) then  //Если aP не nil :-/
  AP[...]:= ...;
  else
  aImgs[...]:=...;
end;

Так что-ли?
В любом случае ваш вариант, пока писал, понял что он не подходит под мою задачу:
Их полученного массива выбрать случайный элемент. << - этот пункт выполняется последним.

[phomm]

Когда-то написал такую процедурку

procedure ListFiles(Path, Ext: string; Level: Byte; const SL: TStringList;
  UseFullName: Boolean = False; WithSize: Boolean = False);
var
  SR: tsearchrec;
  dir, s: string;
begin
  Path := IncludeTrailingPathDelimiter(Path);
  if FindFirst(Path + '*.*', faAnyFile, SR) = 0 then
    repeat
      if (SR.Name = '.') or (SR.Name = '..') then
        Continue;
      if UseFullName then
        dir := Path
      else
        dir := '';
      if WithSize then
        s := Delim + IntToStr(SR.Size)
      else
        s := '';
      if (Level > 0) and ((SR.Attr and faDirectory) <> 0) then
        ListFiles(Path + SR.Name, Ext, Level - 1, SL, UseFullName, WithSize)
      else if Pos(Ext, SR.Name) <> 0 then
        SL.Add(dir + SR.Name + s);
    until FindNext(SR) <> 0;
  FindClose(SR);
end;

Работает так: Даём путь и расширение файла (в принципе можно на маску даже переделать), глубину поиска, стринглист для резалтов (предв. создаём, конечно) и флаги - вписывать полные имена файлов либо только сами имена, и вписывать ли размер (при этом имя и размер в байтах разделяются Delim'итером который задаём константой, а потом по этому же делиму пилим при показе результатов на имя и размер)

Особо не тестил, но в проге, где применял, работала, давая искомый резалт.

Осн. мысль простая - зачем массив и запарки со стеком, если есть вменяемая куча.