0

Допустим, у меня есть список из записей, который сохраняется и загружается в/из типизированного файла. Каждая запись - это информация об определенном фильме(задание "фильмотека"). Там есть номер, название, год, страна производства, а как мне отсортировать список по одному из этих полей ? Заранее спасибо

4
  • Сделать процедуру сортировки, использующую функцию сравнения. В функцию сравнения должны передаваться две записи и признак, по какому полю сортировать.
    – MBo
    21 мар 2022 в 6:31
  • Немного, неясно, как строится эта процедура сортировки обменом, был бы благодарен за пример
    – Coov Show
    21 мар 2022 в 7:43
  • номер версии delphi был бы весьма уместен.
    – teran
    21 мар 2022 в 12:29
  • @teran десятая версия
    – Coov Show
    21 мар 2022 в 12:46

1 ответ 1

0
 type TMyRec = record
    Name: String[30];
    Age: integer;
 end;

 function Compare(const l, r: TMyRec; key: Integer): Integer;
 begin
    case key of
      0: Result := CompareStr(l.Name, r.Name);
      1: Result := l.Age - r.Age;
    end;
 end;

И в процедуре сортировки в месте сравнения вместо < используете (key=0 для сравнения по имени, 1 для сравнения по возрасту)

procedure Sort(..., key);

 ...
    if Compare(a[i], a[j], key) < 0 then  ...
3
  • Так а что, если твой список формируется динамически, а именно с помощью указателей
    – Coov Show
    21 мар 2022 в 10:22
  • Вопрос слишком абстрактный.
    – MBo
    21 мар 2022 в 10:24
  • Покажите код, чтобы было ясно, в чём проблема.
    – MBo
    21 мар 2022 в 15:27

Ваш ответ

Нажимая на кнопку «Отправить ответ», вы соглашаетесь с нашими пользовательским соглашением, политикой конфиденциальности и политикой о куки

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.