Сравнение версий программного обеспечения с учетом символа подчеркивания в Delphi

Delphi , Базы данных , Поиск

Вопрос пользователя связан с необходимостью сравнения версий программного обеспечения, где номера версий могут содержать символ подчеркивания. В примере приведены строки ver1 и ver2, которые могут выглядеть так:

ver1: B2CD1
ver2: B3A10

или

ver1: B2CD1_A1
ver2: B3A10_DE

Задача состоит в том, чтобы извлечь подстроку после символа подчеркивания и использовать ее для сравнения версий.

Решение проблемы

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

var
    Index: Integer;
    SubString: String;
begin
    Index := Pos('_', ver1);
    if Index > 0 then
        SubString := ver1.Substring(Index + 1, Length(ver1) - Index);
end;

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

var
    Index1, Index2: Integer;
    SubString: String;
begin
    Index1 := Pos('_', ver1);
    if Index1 > 0 then begin
        Index2 := Pos('_', ver1, Index1 + 1);
        if Index2 > 0 then
            SubString := ver1.Substring(Index1 + 1, Index2 - Index1 - 1);
        else
            SubString := ver1.Substring(Index1 + 1, Length(ver1) - Index1);
        end;
end;

Также можно использовать функцию ContainsStr для проверки наличия символа подчеркивания, а затем SubString и IndexOf для извлечения подстроки после символа подчеркивания.

function GetString(const AString: string): string;
begin
    Result := '';
    if ContainsStr(AString, '_') then
        Result := AString.Substring(AString.IndexOf('_') + 1, Length(AString) - Pos(AString, '_'));
end;

Подтвержденный ответ

Используя функцию Pos, можно извлекать подстроки после символа подчеркивания и сравнивать их, например, с помощью функции сравнения строк в числовом формате.

function isSoftwareGreater(ver1, ver2: string): byte;
var
    Index1, Index2, Index3, Index4: Integer;
    tmp1, tmp2: string;
begin
    Result := 0;
    // Извлекаем подстроки после первого символа подчеркивания
    Index1 := Pos('_', ver1);
    if Index1 > 0 then
        tmp1 := ver1.Substring(Index1 + 1, Length(ver1) - Index1);
    else
        tmp1 := ver1;

    Index2 := Pos('_', ver2);
    if Index2 > 0 then
        tmp2 := ver2.Substring(Index2 + 1, Length(ver2) - Index2);
    else
        tmp2 := ver2;

    // Извлекаем подстроки после второго символа подчеркивания, если он есть
    Index3 := Pos('_', tmp1, Pos(tmp1, '_') + 1);
    if Index3 > 0 then
        tmp1 := tmp1.Substring(Index3, Length(tmp1) - Index3);

    Index4 := Pos('_', tmp2, Pos(tmp2, '_') + 1);
    if Index4 > 0 then
        tmp2 := tmp2.Substring(Index4, Length(tmp2) - Index4);

    // Преобразуем строки в числовой формат, игнорируя буквы
    var cver1, cver2: int64;
    tmp1 := RemoveCharacters(tmp1, ['a'..'z', 'A'..'Z']);
    tmp2 := RemoveCharacters(tmp2, ['a'..'z', 'A'..'Z']);

    if not TryStrToInt64(tmp1, cver1) then
    begin
        Result := 253;
        exit;
    end;

    if not TryStrToInt64(tmp2, cver2) then
    begin
        Result := 254;
        exit;
    end;

    // Сравниваем числовые значения
    if cver1 > cver2 then
        Result := 1
    else if cver2 > cver1 then
        Result := 2
    else
        Result := 0;
end;

function RemoveCharacters(const S: string; const Chars: TCharRange): string;
var
    i, j: Integer;
begin
    SetLength(Result, Length(S));
    j := 1;
    for i := 1 to Length(S) do
        if not (S[i] in Chars) then
        begin
            Result[j] := S[i];
            Inc(j);
        end;
    SetLength(Result, j);
end;

Альтернативный ответ

Также можно использовать функцию ContainsStr в сочетании с SubString и IndexOf для более высокоуровневого подхода к извлечению подстрок после символа подчеркивания.

function GetVersionPart(const Version: string): string;
var
    UnderScoreIndex: Integer;
begin
    Result := '';
    UnderScoreIndex := Pos(Version, '_');
    if UnderScoreIndex > 0 then
        Result := Version.Substring(UnderScoreIndex + 1);
end;

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

Заключение

В этой статье был рассмотрен вопрос сравнения версий программного обеспечения в среде разработки Delphi, с учетом символа подчеркивания. Представлены различные подходы к решению задачи, включая использование функций Pos, ContainsStr, SubString, и IndexOf. Выбор метода зависит от конкретных требований и предпочтений разработчика.

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

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

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

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

:: Главная :: Поиск ::