Допустим, у меня есть список из записей, который сохраняется и загружается в/из типизированного файла. Каждая запись - это информация об определенном фильме(задание "фильмотека"). Там есть номер, название, год, страна производства, а как мне отсортировать список по одному из этих полей ? Заранее спасибо
-
Сделать процедуру сортировки, использующую функцию сравнения. В функцию сравнения должны передаваться две записи и признак, по какому полю сортировать.– MBo21 мар 2022 в 6:31
-
Немного, неясно, как строится эта процедура сортировки обменом, был бы благодарен за пример– Coov Show21 мар 2022 в 7:43
-
номер версии delphi был бы весьма уместен.– teran21 мар 2022 в 12:29
-
@teran десятая версия– Coov Show21 мар 2022 в 12:46
Добавить комментарий
|
1 ответ
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 ...
-
Так а что, если твой список формируется динамически, а именно с помощью указателей 21 мар 2022 в 10:22
-
-