сортировка массива по 2 параметрам delphi

[h8thumanity]

Вообщем, есть задание отсортировать массив по длине строки ( по убыванию) и по алфавиту (от я до а), я не нашел более очевидного решения чем тупо сделать 2 цикла. Правильно ли это?

procedure getitsort(var a:Tarr; var count:integer; memo2:Tmemo);
var i,k,q:integer; s1,s2,tmp:string; ok:boolean;
begin
//po length
repeat
  ok:=true;
  for i:=1 to count-1 do
    if length(a[i])>length(a[i-1]) then
    begin
      tmp:=a[i-1];
      a[i-1]:=a[i];
      a[i]:=tmp;
      ok:=false;
    end;
until ok;

//po alfavitu
repeat
 ok:=true;
  for k:=1 to count-1 do
    if a[k]<a[k+1] then
   begin
    tmp:=a[k];
    a[k]:=a[k+1];
    a[k+1]:=tmp;
    ok:=false;
   end;
   until ok;




for q:=1 to count do
memo2.lines.add(a[q]);

[Serge_Bliznykov]

не смотрел код, но, судя по

я не нашел более очевидного решения чем тупо сделать 2 цикла.

Вы не правы!

дело в том, что когда идёт сортировка по нескольким параметрам, ВСЕГДА алгоритм такой. Сравниваем значение первого параметра. Если у одной записи он меньше - то она идёт раньше, если у записи параметер больше, то эта запись идёт позже. значения второго(третьего, четвёртного и т.д.) параметров нас уже НЕ ИНТЕРЕСУЮТ.
они вступают в силу если значения первого параметра у двух записей ОДИНАКОВЫЕ. Вот в этом случае, чтобы определить, какая запись идёт раньше, какая позже, начинаем сравнивать записи по второму параметру.

примерно так:

//po length, затем по алфавиту
repeat
  ok:=true;
  for i:=1 to count-1 do
    if (length(a[i])<length(a[i+1])) 
         or ((length(a[i])=length(a[i-1])) and (a[k]<a[k+1]) ) then
    begin
      tmp:=a[i-1];
      a[i-1]:=a[i];
      a[i]:=tmp;
      ok:=false;
    end;    
until ok;

[h8thumanity]

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

не смотрел код, но, судя по

Вы не правы!

дело в том, что когда идёт сортировка по нескольким параметрам, ВСЕГДА алгоритм такой. Сравниваем значение первого параметра. Если у одной записи он меньше - то она идёт раньше, если у записи параметер больше, то эта запись идёт позже. значения второго(третьего, четвёртного и т.д.) параметров нас уже НЕ ИНТЕРЕСУЮТ.
они вступают в силу если значения первого параметра у двух записей ОДИНАКОВЫЕ. Вот в этом случае, чтобы определить, какая запись идёт раньше, какая позже, начинаем сравнивать записи по второму параметру.

примерно так:

//po length, затем по алфавиту
repeat
  ok:=true;
  for i:=1 to count-1 do
    if (length(a[i])<length(a[i+1])) 
         or ((length(a[i])=length(a[i-1])) and (a[k]<a[k+1]) ) then
    begin
      tmp:=a[i-1];
      a[i-1]:=a[i];
      a[i]:=tmp;
      ok:=false;
    end;    
until ok;

ошибку говорит