MaxIntValue returns the maximum value from an integer array.

>From the Math unit:

function MaxIntValue(const Data: array of Integer): Integer;
var
  I: Integer;
begin
  Result := Data[Low(Data)];
  for I := Low(Data) + 1 to High(Data) do
    if Result < Data[I] then
      Result := Data[I];
end;


Patrick Dunford wrote:

> It also appears that MaxIntValue and MinIntValue were added in a later
> version of Delphi in any case
>
> All I really need is for someone to tell me what they do :)
>
> > -----Original Message-----
> > From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]On
> > Behalf Of Patrick Dunford
> > Sent: Friday, 29 December 2000 13:39
> > To: Multiple recipients of list delphi
> > Subject: [DUG]: Math unit
> >
> >
> > Why isn';t the Math unit installed with my version of Delphi?
> >
> > D3.02 Standard
> >
> > I don';t use it but I just installed some components that do and of course
> > they won't work
> >
> > =======================================================================
> > Patrick Dunford, Christchurch, NZ - http://pdunford.godzone.net.nz/
> >
> >    Therefore, since we are receiving a kingdom that cannot be
> > shaken, let us be thankful, and so worship God acceptably with
> > reverence and awe, for our "God is a consuming fire."
> >     -- Hebrews 12:28-29
> > http://www.heartlight.org/cgi-shl/todaysverse.cgi?day=20001228
> > =======================================================================
> > Created by Mail2Sig - http://pdunford.godzone.net.nz/software/mail2sig/
> >
> > ------------------------------------------------------------------
> > ---------
> >     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> >                   Website: http://www.delphi.org.nz
> > To UnSub, send email to: [EMAIL PROTECTED]
> > with body of "unsubscribe delphi"
> >
>
> ---------------------------------------------------------------------------
>     New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
>                   Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"

--
John Mason
Sinclair Knight Merz Limited



---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"

Reply via email to