Delphi-Help

Min

Печать
Рейтинг пользователей: / 0
ХудшийЛучший 

Min

Описание

function Min ( const A, B : Integer|Int64|Single|Double|Extended ) : Integer|Int64|Single|Double|Extended;

Функция Min возвращает наименьшее значение одного из двух числовых параметров, A и B.

Пример кода

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

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

int1 = 37
int2 = 38
Min(int1, int2) = 37

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

Min(float1, int1) = 37.5

Примечание

 

 

Авторизация



Счетчики