Сортировка двух связанных списков по целочисленным значениям одного из нихDelphi , Синтаксис , СортировкаСортировка двух связанных списков по целочисленным значениям одного из них
Автор: ___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; В статье предлагается процедура для сортировки двух связанных списков по целочисленным значениям одного из них, используя алгоритм простой сортировки вставками. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Сортировка ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |