Re: I need the fastest routine

Stig,

| So assuming that 'mine' is the original code, what was the original -
| original code ?

I think that would have to have been Cléments:

procedure MinMaxArray( const aArray : Array of Integer; out aMax, aMin : integer );
var
MaxArray,
MinArray : array[boolean] of integer;
i : integer;
begin
aMax :=0;
aMin :=0;
i:=high( aArray );
if i>=0 then begin
MaxArray[True] := aArray[0];
MinArray[True] := aArray[0];
while i>0 do begin
MaxArray[ aArray[i] > MaxArray[True] ] := aArray[i];
MinArray[ aArray[i] < MinArray[True] ] := aArray[i];
dec(i);
end;
aMax := MaxArray[True];
aMin := MinArray[True];
end;
end;

<g>

--
Q

07/11/2008 09:23:49

XanaNews Version 1.17.5.7 [Q's Salutation mod] é
.