Еще один вопрос по оптимальности алгоритма

[Kronos913]

var
  s:string
  ss: array [a..b] of string

Итак. Есть строка s
Есть массив ss, который надо наполнить "лесенкой" от строки s

То есть ss[3] - последние 4 элемента строки s
То есть ss[4] - последние 5 элементов строки s
То есть ss[5] - последние 6 элементов строки s
И т.д.
При этом, все строки "Поднимая" (делая все буквы большими)

Вопрос: какой алгоритм лучше?

В обоих алгоритмах использую эту функцию:

function rasr(const s:string; const a:byte): string;
begin
 If (a<length(s)) and (a>=0) then begin
  result:=AnsiUpperCase(Copy(s, length(s)-a, length(s)));
 end else result:='';
end;

Вариант 1:

For i:=a to b do ss[i]:=rasr(s, i);

Вариант 2:

ss[a]:=rasr(s, a);

   For i:=a+1 to b do begin
    If length(s)>i then begin
     ss[i]:=UpCase(s[length(s)-i])+ss[i-1];
    end else ss[i]:='';
   end;

В первом случае каждый раз копировать и поднимать всю строку
Во втором, создать первый элемент массива. А потом следующий := новый символ + прошлая строка

[Arigato]

AnsiUpperCase лучше вынести за цикл и применить один раз.

[Kronos913]

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

AnsiUpperCase лучше вынести за цикл и применить один раз.

Так его ж надо применить к каждой строке массива

[Arigato]

А каждая строка получается из исходной. То есть можно один раз применить к исходной.

[Kronos913]

procedure ForFilter18(const ss:string; var sq:Array of string18; const i1, i2: byte);
 var
  i, j:byte;
begin
   j:=length(ss);
   If i1<j then begin
    sq[i1]:=AnsiUpperCase(Copy(ss, j-i1, i1+1));
    If i2<j then begin
     For i:=i1+1 to i2 do sq[i]:=UpCase(ss[j-i])+sq[i-1];
    end else begin
     For i:=i1+1 to j-1 do sq[i]:=UpCase(ss[j-i])+sq[i-1];
     For i:=j to i2 do sq[i]:='';
    end;
   end else for i:=i1 to i2 do sq[i]:='';
end;

А может даже лучше такой код? Так чтобы внутри цикла не было IF'ов

[Kronos913]

Кстати, еще вопрос в том, что лучше: каждый раз дергать length, или же один раз ее присвоить, а дальше уже через готовую переменную?

[digitalis]

Это даже не вопрос - конечно, второй вариант.