Двойная ссылка (для поиска: поиск папок в папке)

[Kronos913]

Вопрос такой. Когда в параметры процедуры по ссылке передается переменная которая сама является ссылкой - то в этом случае будет двойная ссылка (ссылка на ссылку), или все будет передана ссылка напрямую на переменную?

Показываю на примере кода процедуры, которая находит папки в папке.
Выкладываю код, может кому пригодится.
Буду хорошим человеком=)) Кто-то мне помог тут, кому-то я помогу

{Добавляет строку в TStrings с сортировкой по алфавиту}
Procedure SortAddStringToTStrings(const s:string; ss: TStrings; const st:byte);
var
 j:longInt;
begin
 For j:= st to ss.Count-1 do begin
  If s<ss[j] then begin
   ss.Insert(j, s);
   exit;
  end;
 end;
 ss.Add(s);
end;

{Находит все папки в папке и сортирует их по-алфавиту}
procedure DirSearchDirSort(Dir: string; SL: TStrings);
var
   SearchRec: TSearchRec;

begin
   Dir := IncludeTrailingBackslash(Dir);
   if FindFirst(Dir + '*.*', faDirectory, SearchRec) = 0 then

     repeat
       Application.ProcessMessages;

       if (SearchRec.Attr and faDirectory)<>0 then begin
          If not(SearchRec.Name='.') and not(SearchRec.Name='..') then begin
            SortAddStringToTStrings( (Dir + SearchRec.Name), SL, 0);
          end;
       end;
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);
end;

[Shouldercannon]

Как-то грубо

If s<ss[j] then begin
   ss.Insert(j, s);
   exit;
  end;

лучше

If s<ss[j] then begin
   ss.Insert(j, s);
   Break; // <-
  end;

[Kronos913]

После брейка выполнится оператор ss.Add(s); а после эксита - нет
И тогда придется лишний булеан делать чтобы отловить была ли строка вставлена в середину списка, или нет

[northener]

Вставлять ProcessMessages на каждой итерации некоего цикла это перебор.

[D1973]

Сообщение от Kronos913

может кому пригодится

Начать надо с того, что уже в Дельфи 7 функция IncludeTrailingBackslash() использовалась только для обратной совместимости, т.е., по русски говоря, безбожно устарела... И на кой ляд вообще трогать абстрактный класс TStrings?
Далее, даже для прошловековой Дельфи-6 тут чересчур много нагромождений... На кой ляд вообще нужна процедура SortAddStringToTStrings, если у класса TStringList есть свои методы Sort() и CustomSort()? Да, собственно, проще уж сразу сказать, чтобы список создавался сортированным.
Код для Д7

procedure DirSearchDirSort(Dir: string; SL: TStringList);
var SearchRec: TSearchRec;
begin
   Dir := IncludeTrailingPathDelimiter(Dir);
   SL.Sorted := true;
   if FindFirst(Dir + '*.*', faDirectory, SearchRec) = 0 then
     repeat
       if (SearchRec.Attr and faDirectory)<>0 then
         if not(SearchRec.Name='.') and not(SearchRec.Name='..') then SL.Add(Dir + SearchRec.Name);
     until FindNext(SearchRec)<>0;
   FindClose(SearchRec);
end;

В RAD Studio все еще компактнее:

uses ... , System.Types, System.IOUtils;
...
procedure DirSearchDirSort(Dir: string; SL: TStringList);
var
  i: integer;
  A: TStringDynArray;
begin
  A := TDirectory.GetDirectories(Dir);
  SL.Sorted := true;
  for i := Low(A) to High(A) do
    SL.Add(A[i]);
end;

[BDA]

Сообщение от D1973

трогать абстрактный класс TStrings

А это чтобы вызывать, например, так "DirSearchDirSort('D:\', memo1.lines);". Но добавление сначала в "самосортирующийся" TStringList, а затем присвоение его содержимого визуальному компоненту, возможно, будет эффективнее.