Сортировка гонщиков в приложении MyLaps AMB

Delphi , Базы данных , Сортировка и Фильтр

Приложение, использующее протоколы P3 дешифровщика MyLaps AMB, должно отображать информацию о гонщиках в соответствии с их положением на трассе. Однако, когда несколько гонщиков находятся на одном круге, становится сложно определить, кто из них впереди. В этой статье мы рассмотрим, как решить эту проблему с помощью сортировки по количеству пройденных кругов и времени последнего прохождения контрольной точки.

Проблема

У нас есть запись для каждого гонщика, содержащая информацию о его положении, идентификаторе, имени, номере карта, последнем прохождении контрольной точки, количестве пройденных кругов, лучшем времени на круге, последнем времени на круге, времени отставания, времени на промежуточном круге и времени последнего прохождения контрольной точки.

type
  TTimingRecord = record
    position: integer;
    transId: integer;
    racerName:  string;
    kartNumber: integer;
    lastPassingN: integer;
    laps: integer;
    lastRTCTime:  TDateTime;
    bestTimeMs: Extended;
    lastTimeMs: Extended;
    gapTimeMs:  Extended;
    splitTimeMs:  Extended;
    timestamp:  TDateTime;
  end;

Мы хотим отсортировать этих гонщиков по количеству пройденных кругов и времени последнего прохождения контрольной точки. Однако, когда два гонщика находятся на одном круге, нам нужно определить, кто из них впереди, основываясь на времени последнего прохождения контрольной точки.

Решение

Чтобы решить эту проблему, мы можем использовать двухэтапный подход:

1. Отдельно реализовать функцию сортировки.
2. Отдельно реализовать функцию сравнения.
3. Объединить эти две функции для получения окончательного решения.

Функция сортировки

Для сортировки мы можем использовать простой алгоритм пузырька (bubble sort). Вот пример реализации на Object Pascal:

procedure sortRacers2();
var
  i, x: integer;
  Temp: TTimingRecord;
begin
  for i := 0 to length(DriversRecord)-2 do
  begin
    for x := i to length(DriversRecord)-1 do
    begin
      if DriversRecord[i].laps < DriversRecord[x].laps then
      begin
        Temp := DriversRecord[i];
        DriversRecord[i] := DriversRecord[x];
        DriversRecord[x] := Temp;
      end;
    end;
  end;
end;

Функция сравнения

Для сравнения мы можем использовать функцию, которая сравнивает количество пройденных кругов и время последнего прохождения контрольной точки. Вот пример реализации на Object Pascal:

function CompareRacers(const Left, Right: TTimingRecord): Integer;
begin
  Result := CompareValue(Left.laps, Right.laps);
  if Result=0 then
    Result := -CompareDateTime(Left.lastRTCTime, Right.lastRTCTime);
end;

В этой функции мы сначала сравниваем количество пройденных кругов с помощью функции CompareValue из модуля Math. Если количество кругов одинаковое, мы сравниваем время последнего прохождения контрольной точки с помощью функции CompareDateTime из модуля DateUtils. Чтобы получить правильный порядок, мы используем отрицательное значение времени последнего прохождения контрольной точки.

Объединение функций сортировки и сравнения

Теперь, когда у нас есть обе функции, мы можем объединить их для получения окончательного решения. Для этого мы можем использовать встроенную функцию сортировки в Delphi, передав ей нашу функцию сравнения. Вот пример кода:

procedure SortDriversUsingCompareRacers(var DriversRecord: TArray<TTimingRecord>);
begin
  TArray.Sort<TTimingRecord>(DriversRecord, TComparer<TTimingRecord>.Construct(CompareRacers));
end;

Эта функция sorts массив записей DriversRecord с помощью нашей функции сравнения CompareRacers. После вызова этой функции массив будет отсортирован по количеству пройденных кругов и времени последнего прохождения контрольной точки.

Заключение

В этой статье мы рассмотрели проблему сортировки гонщиков в приложении MyLaps AMB и предложили двухэтапное решение, состоящее из функции сортировки и функции сравнения. Мы показали, как реализовать эти функции на Object Pascal и объединить их для получения окончательного решения. Используя этот подход, вы можете эффективно сортировать гонщиков по количеству пройденных кругов и времени последнего прохождения контрольной точки в вашем приложении.

Создано по материалам из источника по ссылке.

В данном контексте рассматривается проблема сортировки гонщиков в приложении MyLaps AMB по количеству пройденных кругов и времени последнего прохождения контрольной точки на трассе, когда несколько гонщиков находятся на одном круге.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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