Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Синтаксис , Сортировка

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

Автор: ___Nikolay
WEB-сайт: http://delphiworld.narod.ru

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;

Статья Сортировка двух связанных списков по целочисленным значениям одного из них раздела Синтаксис Сортировка может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Сортировка ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
17.01.2021 22:41:55/0.028833866119385/2