• Registered: 2017-12-27
  • Posts: 27

Topic: Функции Min и Max

Наткнулся на эти функции при переделке делфи-кода. Компилятор их проглатывает и не возмущается.

ShowMessage(Max(1,2));
ShowMessage(Min(1,2));

Но они не работают и всегда возвращают 0.
neutral

mapcreatormail's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Функции Min и Max

Действительно, почему то не работают.
Можете добавить реализацию этих функций прямо в скрипт

function Max(const A, B: Integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

function Min(const A, B: Integer): Integer;
begin
  if A < B then
    Result := A
  else
    Result := B;
end;

после этого все зарабтает.

Dmitry.
  • Registered: 2017-12-27
  • Posts: 27

Re: Функции Min и Max

Спасибо за пример.
Я почти так и сделал. smile

function Max(const A, B: Integer): Integer;
begin
  case A > B of
    true: Result := A;
    false: Result := B;
  end;
end;

function Min(const A, B: Integer): Integer;
begin
  case A < B of
    true: Result := A;
    false: Result := B;
  end;
end;

mapcreatormail's Website