Работа со версиями через целочисленные массивы в Delphi: безопасное сравнение и преобразование

Delphi , Синтаксис , Записи и Множества

Итак, пользователь задал вопрос о том, как реализовать возможность сравнения версий, представленных в виде целочисленных массивов, с использованием стандартных операторов сравнения в языке программирования Delphi. Для решения этой задачи необходимо определить перегруженные операторы сравнения для типа TVersion. Ниже приведен пример кода на Object Pascal (Delphi), который демонстрирует реализацию таких операторов.

type
  TVersion = record
    Values: array of Integer;
    function Count: Integer; override;
    class operator Implicit(aVersion: TVersion): String;
    class operator Implicit(aVersion: String): TVersion;
  end;

class operator TVersion.Implicit(aVersion: TVersion): String;
var
  X, L: Integer;
begin
  Result := '';
  L := Length(aVersion.Values);
  for X := 0 to L - 1 do begin
    if X > 0 then
      Result := Result + '.';
    Result := Result + IntToStr(aVersion.Values[X]);
  end;
end;

class operator TVersion.Implicit(aVersion: String): TVersion;
var
  S, T: string;
  I: Integer;
begin
  SetLength(Result.Values, 0);
  while Length(S := aVersion + '.') > 0 do begin
    I := Pos('.', S);
    T := Copy(S, 1, I - 1);
    Delete(S, 1, I);
    SetLength(Result.Values, Length(Result.Values) + 1);
    Result.Values[High(Result.Values)] := StrToIntDef(T, 0);
  end;
end;

function TVersion.Count: Integer; override;
begin
  Result := High(Values) + 1;
end;

// Определение оператора равенства для типа TVersion
class operator Equal(a, b: TVersion): Boolean;
var
  la, lb: Integer;
begin
  // Сначала сравниваем длины массивов значений версий
  la := a.Count;
  lb := b.Count;
  if la <> lb then
    Result := False
  else begin
    // Если массивы одинаковой длины, то сравниваем элементы по одному
    for var i := 0 to High(a.Values) do
      if a.Values[i] <> b.Values[i] then begin
        Result := False;
        Exit;
      end;
    // Все элементы равны, значит версии тоже равны
    Result := True;
  end;
end;

// Определение оператора меньше для типа TVersion
class operator LessThan(a, b: TVersion): Boolean;
var
  la, lb, i: Integer;
begin
  la := a.Count;
  lb := b.Count;
  for i := 0 to Min(la, lb) - 1 do begin
    if a.Values[i] < b.Values[i] then begin
      Result := True;
      Exit;
    end else if a.Values[i] > b.Values[i] then begin
      Result := False;
      Exit;
    end;
  end;
  // Если дошли до этого момента, значит элементы массивов равны до какой-то точки
  // и теперь сравниваем длину массивов
  Result := la < lb;
end;

class operator LessThanOrEqual(a, b: TVersion): Boolean;
begin
  Result := (a = b) or (a < b);
end;

class operator GreaterThan(a, b: TVersion): Boolean;
begin
  Result := !(a <= b);
end;

class operator GreaterThanOrEqual(a, b: TVersion): Boolean;
begin
  Result := a < > b;
end;

// Пример использования перегруженных операторов
var
  v1, v2: TVersion;
begin
  v1 := '1.2.3';
  v2 := '1.2.4';
  if v1 < v2 then begin
    ShowMessage('Версия 1 старше версии 2');
  end else if v1 > v2 then begin
    ShowMessage('Версия 2 старше версии 1');
  end;
end;

Обратите внимание, что для реализации безопасного сравнения версий в случае различной длины массивов значений, нужно учитывать, что версия с большим количеством компонентов (например, 1.2.3) должна считаться меньшей, чем версия с меньшим количеством компонентов (1.2), если все оставшиеся компоненты равны нулю.

Этот код можно использовать в качестве основы для реализации более сложных алгоритмов сравнения версий, например, когда версии представлены не только числовыми значениями, но и содержат дополнительные символы или форматы (например, альфа-версии).

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

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

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

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

:: Главная :: Записи и Множества ::