Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Сортировка двух связанных списков по целочисленным значениям одного из них

01.01.2007
Автор: ___Nikolay

procedure SortTwoListsByIntValues(lbNum, lbNames: TStrings);
var
  i
, j, b_val, b_j: integer;
  b_val_name
: string;
begin
 
if lbNum.Count > 1 then
 
begin
   
for i := 0 to lbNum.Count - 2 do
   
begin
      b_val
:= StrToInt(lbNum[i]);
      b_val_name
:= lbNames[i];
      b_j
:= i;
     
for j := i + 1 to lbNum.Count - 1 do
     
begin
       
if StrToInt(lbNum[j]) < b_val then
       
begin
          b_val
:= StrToInt(lbNum[j]);
          b_val_name
:= lbNames[j];
          b_j
:= j;
       
end;
     
end;
      lbNum
[b_j] := lbNum[i];
      lbNum
[i] := IntToStr(b_val);
 
      lbNames
[b_j] := lbNames[i];
      lbNames
[i] := b_val_name;
   
end;
 
end;
end;

https://delphiworld.narod.ru/

DelphiWorld 6.0