Функція Max – видає максимальну кількість із двох цілих значень

Функція Max в Delphi видає максимальну кількість із двох цілих значень.

Функція Max: Ілюстрація використання Max с Integer

var
  int1, int2, int3 : Integer;
begin
  int1 := 37;
  int2 := 38;
  int3 := Max(int1, int2);

  ShowMessage('int1 = '+IntToStr(int1));
  ShowMessage('int2 = '+IntToStr(int2));
  ShowMessage('Max(int1, int2) = '+IntToStr(int3));
end;

Функція Max: Ілюстрація Max зі змішаними типами чисел

var
  int1   : Integer;
  float1 : single;
begin
  int1   := 37;
  float1 := 37.5;
  float1 := Max(float1, int1);
  ShowMessage('Max(float1, int1) = '+FloatToStr(float1));
end;