| Description |
The Min function returns the value of lower of two numeric arguments, A and B.
These arguments may be any of the given numeric types, in any mixture. The result will be normalised to the appropriate value - floating point if either argument is floating point.
|
|
| Related commands |
| Max |
|
Gives the maximum of two integer values |
| Mean |
|
Gives the average for a set of numbers |
| CompareValue |
|
Compare numeric values with a tolerance |
|
|
|
| Example code : Illustrate integer use of Min |
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;
|
| Show full unit code |
int1 = 37
int2 = 38
Min(int1, int2) = 37
|
|
| Example code : Illustrating Min of mixed number types |
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
Math, // Unit containing the Min command
SysUtils,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
int1 : Integer;
float1 : single;
begin
int1 := 38;
float1 := 37.5;
float1 := Min(float1, int1);
ShowMessage('Min(float1, int1) = '+FloatToStr(float1));
end;
end.
|
| Hide full unit code |
Min(float1, int1) = 37.5
|
|