Работа с записями.

[dima-intro]

Есть запись.-Футболист-Стаж-Зароботок-
Надо сделать комплексную сортировку по стажу+по зароботку
У меня сортирует только по стажу.
Подскажите как сделать чтобы сортировало и по Зароботку тоже.
Очень прошу помочь,а то останется хвост...

вот код моей комплексной сортировки

function compareStajZar(r1, r2:TRecStud):boolean;  //Вспомагающая функция
begin
  if r1.Staj <> r2.Staj
  then result:=r1.Staj <= r2.Staj
  else result := r1.Fam <= r2.Fam;
end;


procedure sortArrayStajZar (var A:TArr; cnt:integer);
  	var i, j: integer; r: TRecStud; ok: boolean;
begin
  	i := cnt;
  	repeat
    i:=i-1;
    ok:=true;
    for j:=1 to i do
    // Сравниваем записи с помощью функции
    if not compareStajZar(A[j], A[j+1]) then
    begin
    r:=A[j];
    A[j]:=A[j+1];
    A[j+1]:=r;
    ok:=false;
    end;
until ok;
end;

[vovk]

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

[dima-intro]

А можете написать, пожалуйста?
А то что-то у меня не получается, как ни пишу-не сортирует.

[Serge_Bliznykov]

плохо брать чужой код..
а ещё хуже (намного) не понимать - что в нём написано...

function compareStajZar(r1, r2:TRecStud):boolean; //Вспомагающая функция
begin
if r1.Staj <> r2.Staj
then result:=r1.Staj <= r2.Staj
else result := r1.Fam <= r2.Fam;
end;

читаем, если стажи не равны, то сравнить, у кого стаж больше,
если же стаж одинаковый (веточка else) то сравниваются фамилии.
Таким образом, данный код сортирует по стажу + по фамилии.


Вам достаточно написать:

function compareStajZar(r1, r2:TRecStud):boolean; //Вспомагающая функция
begin
if r1.Staj <> r2.Staj
then result:=r1.Staj <= r2.Staj
else result := r1.Заработок <= r2.Заработок;
end;

и всё!

p.s. т.к. приведён огрызок кода, то не видно описания структуры TRecStud,
поэтому, как у Вас в программе поле заработок называется в TRecStud - не видно.
измените .Заработок на своё поле...

[dima-intro]

это не чужой код-это код из методы.

спасибо, что подсказали, но все равно не сортирует все вместе-только стаж.

[Stilet]

ok:=false;
end;
until ok;

Оригинательно... Даже я на такое не способен.
Может тебе стоит посмотреть как делают сортировку? Найпростейшее использовать два цикла for а не то что ты наваял, ибо оно генетически ошибочно.