Сортировка двух массивов одновременно

[antoha73]

Вот кусок кода, в чем-то тут проблема...

i:=proekciya.tagpro-1; {i присваиваю кол-во элементов массива}

for indeks:=1 to i do TMPZakIndex[indeks] := indeks; {проинициализировал массив TMPZakIndex }


dosort:='';
for indeks:=1 to i do dosort:=dosort+inttostr(TMPZakIndex[indeks])+' ';
showmessage('Массив TMPOrder до сортировки: '+dosort);                 {Вывел для наглядности массив TMPOrder до сортировки}


for indeks:=1 to i do begin
    IndexMax := indeks;
     for j:=indeks+1 to i do
     if TMPOrder[j]>TMPOrder[IndexMax] then IndexMax := j;
      if indeks<>IndexMax then begin
      tmpVar := TMPOrder[IndexMax];
      TMPOrder[IndexMax] := TMPOrder[indeks];
      TMPOrder[indeks] := tmpVar;
      tmpVar := TMPZakIndex[IndexMax];
      TMPZakIndex[IndexMax] := TMPZakIndex[indeks];
      TMPZakIndex[indeks] := tmpVar;
    end;
end;


poslesort:='';
for indeks:=1 to i do poslesort:=poslesort+inttostr(TMPZakIndex[indeks])+' ';
showmessage('Массив TMPOrder после сортировки: '+poslesort);                  {Вывел для наглядности массив TMPOrder после сортировки-результат-он не отсортирован!}


poz_strok:='';
for indeks:=1 to i do begin
//poz_strok:=poz_strok+TMPZak[i];
poz_strok:=poz_strok+TMPZak[TmpZakIndex[indeks]]; {poz_strok в итоге должна содержать отсортированный массив TMPZak, но тут опять все не так (((} 
end;

Вот для наглядности, то что должно быть:

[Serge_Bliznykov]

Что ж Вы всё путаете... ;(
и себя и людей..
Код Ваш - РАБОЧИЙ!

смотрите в аттаче доказательство тому.


по поводу путаницы.
просто, как иллюстрация:

for indeks:=1 to i do dosort:=dosort+inttostr(TMPZakIndex[indeks])+' ';
showmessage('Массив TMPOrder до сортировки: '+dosort);                 
{Вывел для наглядности массив TMPOrder до сортировки}

так какой массив Вы выводите? TMPOrder ?!

моё мнение, что Вы не понимаете, что делает код,
и, соответственно, не можете его использовать... ;(

[antoha73]

for indeks:=1 to i do dosort:=dosort+inttostr(TMPZakIndex[indeks])+' ';
showmessage('Массив TMPOrder до сортировки: '+dosort);                 
{Вывел для наглядности массив TMPOrder до сортировки}

Тут я проглядел, конечно-там нужно TMPOrder а не TMPZakIndex, извиняюсь, сортировка работает, проблема там совсем в другом...
СПАСИБО!!!!