TStrings в параметрах

[Kronos913]

Вопрос такой:
Если в параметрах процедуры есть переменная TStrings, и перед ней не прописано ни var ни const, то она в таком случае копируется, или работает по ссылке как в случае с var ?

[Kronos913]

Вот такой код.
В этом случае идет напрямую обращение, как в случае с var?

Procedure SortAddStringToTStrings(const s:string; ss: TStrings; const st:byte);
var
 j:longInt;
 a:boolean;
begin
 j:=st;
 a:=true;
 while (j<ss.Count) do begin
  If s<ss[j] then begin
   ss.Insert(j, s);
   a:=false;
   j:=ss.Count;
  end else inc(j);
 end;
 If a then ss.Add(s);
end;

[BDA]

Если верно понял ассемблер, то по ссылке (по адресу на объект). А по поводу остального кода: зачем игнорировать существование break (будет безусловный выход из цикла, а не лишняя проверка условия цикла); при известном количестве итераций лучше использовать цикл for (заодно свойство count не будет "дергаться" на каждой итерации цикла).

Procedure SortAddStringToTStrings(const s: string; ss: TStrings; const st: byte);
var
  j: LongInt;
begin
  for j := st to ss.Count - 1 do
    If s < ss[j] then
    begin
      ss.Insert(j, s);
      exit;
    end;
  ss.Add(s);
end;

А если есть гарантия отсортированности ss и там лежит достаточно много элементов, то двоичный поиск места вставки может быть лучше.

[Kronos913]

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

Если верно понял ассемблер, то по ссылке (по адресу на объект). А по поводу остального кода: зачем игнорировать существование break (будет безусловный выход из цикла, а не лишняя проверка условия цикла); при известном количестве итераций лучше использовать цикл for (заодно свойство count не будет "дергаться" на каждой итерации цикла).

Procedure SortAddStringToTStrings(const s: string; ss: TStrings; const st: byte);
var
  j: LongInt;
begin
  for j := st to ss.Count - 1 do
    If s < ss[j] then
    begin
      ss.Insert(j, s);
      exit;
    end;
  ss.Add(s);
end;

А если есть гарантия отсортированности ss и там лежит достаточно много элементов, то двоичный поиск места вставки может быть лучше.

По поводу цикла For - там может быть такая проблема:
Если ввести в параметр st единицу (чтобы фильтр не трогал нулевую строку), в TString'се на данный момент только нулевая строка, получится так:
st = 1, (ss.Count - 1) = 0
И в этом случае for должен выдать ошибку

По поводу остальных правок - большое спасибо

[digitalis]

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

И в этом случае for должен выдать ошибку

Да не ошибку - просто цикл не выполнится ни разу. На этапе компиляции компилятор не знает, что там в st и ss.Count . Если бы задавались константы

for j := 2 to 1 do

тогда компилятор (а не исполняемый код), похоже, выдал бы ошибку.

[Kronos913]

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

Да не ошибку - просто цикл не выполнится ни разу. На этапе компиляции компилятор не знает, что там в st и ss.Count . Если бы задавались константы

for j := 2 to 1 do

тогда компилятор (а не исполняемый код), похоже, выдал бы ошибку.

Я имел в виду: в процессе работы программа в процессе не выдаст ошибку, если в цикле for нижняя граница больше верхней?

[digitalis]

Нет, просто цикл не выполнится ни разу.
Когда параметр цикла меняется в процессе работы программы, да ещё чтоб вылетала по ошибке в такой ситуации - программисты бы все дружно утопились.

[BDA]

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

for j := 2 to 1 do

тогда компилятор (а не исполняемый код), похоже, выдал бы ошибку.

D7 в таком случае просто сообщил: "[Hint] Unit1.pas(30): FOR or WHILE loop executes zero times - deleted".

[digitalis]

Я бы не смог так хорошо выразиться, как D7