SRL Archive - Help and Support

Is there a function for it? I believe I've seen one before…




Has to do with autocoloring.

function ArrMin(I: TIntegerArray): Integer;
var
  C: Integer;
begin
  Result:= I[0];
  for C:= 1 to Length(I) - 1 do
    if(Result > I[C])then Result:= I[C];
end;
 

By Bullzeye. Just reverse it to find greatest.

Wow… That does not make since to me… But I guess if it works, I can disect it later.

It loops through the array holding the current lowest in a variable.

But I made that for somebody (forgot who) that couldn't use the SCAR function AMin. ;)

Oh ya, n3ss3s couldn't use AMin and AMax.

BubbleSortB if you wanted it sorted, then you could just use Array[0] for your result. AMax, and AMaxE work too… if you want to be simple… -.-; :p

Bubble sorting would take way longer with bigger arrays though.

Nowadays Im ofcourse a happy owner of Divi 3.11, o and Divi 3.06 had AMax but not AMin :p

Is there something to sort extended arrays…?

From: r0b0t1
Is there something to sort extended arrays…?

Do you ever look through the SCAR Guide… :p
AMaxE will return the largest value in an extended Array, as for sorting it, I don't know if BubbleSort will work, you may have to devise your own function for that.

I do look in the guide, but am lazy sometimes….


I just solved the problem :p.

What do you mean by extended arrays?

[Sarcastic] Noob! Don't you know what an extended array is?! [/Sarcastic]

From: SantaClause
[Sarcastic] Noob! Don't you know what an extended array is?! [/Sarcastic]

Is that helping anything? You could have done the sarcastic quotes then told him.

Anyways, Claw like an array of Extended instead of Array of integer

program New;
{.include SRL\SRL.scar}
var
  Extend: Array of Extended;
  i: Integer;

begin
  SetupSRL;
  Extend:= [1.3,4.0,6.7,9.2];
  for i:= 0 to GetArrayLength(Extend) -1 do
    WriteLn(FloatToStr(Extend[i]));
end.

Ah right, seems pretty obvious now lol. Thanks for that.

From: The Claw
Ah right, seems pretty obvious now lol. Thanks for that.

No problem, any time.