InArr();

Printable View

InArr();

well, for those lazy people who dont want to use a certain type of InBlankArr(), here :p

Rounds two: THanks to Naum :)

SCAR Code:

function InArrEx(Arr: TVariantArray; Any: Variant; Var Place : Integer): Boolean;
var
  i: Integer;
begin
  for i := 0 to high(Arr) do
    try
      result := Arr[i] = Any;      
      if result then
      begin
        Place := I;
        Exit;
      end;
    except 
    end;
end;

Function InArr(Arr: TVariantArray; Any: Variant): Boolean;
var
  spot: Integer;
begin
  result := InArrEx(Arr, Any, spot);
end;

Original:

SCAR Code:

function InArr(Arr: TVariantArray; Any: Variant): Boolean;
var
  i: Integer;
begin
  for i := 0 to high(Arr) do
    try
      result := Arr[i] = Any;
      if result then exit;
    except 
    end;
end;

I was reading Naums tut and thought "Oh no one has made just a general 'InArr'?"

So I thought I'd try :D
Took about two minutes.

Example : writeln(InArr(['wat', 2, 'haf', 244, true], 2));

Also have an InArrEx:

SCAR Code:

function InArrEx(Arr: TVariantArray; Any: Variant; Var Place : Integer): Boolean;
var
  i: Integer;
begin
  for i := 0 to high(Arr) do
    try
      result := Arr[i] = Any;      
      if result then
      begin
        Place := I;
        Exit;
      end;
    except 
    end;
end;

08-21-2009, 04:44 AM
noidea

Done ^.^
08-21-2009, 04:58 AM
Zyt3x

I don't like the use of try except, does anyone know if it affects the speed/cpu usage/ram usage?
I am sure there is some way to remove the try except :)

Other than that: good job :)
08-21-2009, 05:19 AM
ian.

Ermm, try except and the other one (unless I think?) are all very low level functions, from what I remember. Like or/xor/not/blah blah blah. :) Not entirely sure, though.
08-21-2009, 05:33 AM
noidea

Quote:

Originally Posted by ian.

Ermm, try except and the other one (unless I think?) are all very low level functions, from what I remember. Like or/xor/not/blah blah blah. :) Not entirely sure, though.

the try and except are for runtime errors.

If you're Any is an Integer, and there is a string in the Arr, then it will produce a runtime error.
08-21-2009, 05:41 AM
ian.

I know what they're for.. >_> :) He said that they're slow. I'm saying they're low level and aren't slow/don't use much RAM/anything like that. :)
08-21-2009, 05:48 AM
noidea

Quote:

Originally Posted by ian.

I know what they're for.. >_> :) He said that they're slow. I'm saying they're low level and aren't slow/don't use much RAM/anything like that. :)

oh, sorry :x
08-21-2009, 06:55 AM
bullzeye95

Quote:

Originally Posted by ian.

I know what they're for.. >_> :) He said that they're slow. I'm saying they're low level and aren't slow/don't use much RAM/anything like that. :)

I don't know what you mean by "they're low level," but they're almost twice as slow as regular begin..end blocks.
08-21-2009, 07:07 AM
ian.

Quote:

Originally Posted by bullzeye95

I don't know what you mean by "they're low level," but they're almost twice as slow as regular begin..end blocks.

I didn't wanna say low level functions/procedures, because I don't know the real name for them. And are begin..end blocks slow? :p I'm just trying to tell Zyt3x that try except isn't very slow. =X
08-21-2009, 07:26 AM
bullzeye95

Quote:

Originally Posted by ian.

I didn't wanna say low level functions/procedures, because I don't know the real name for them. And are begin..end blocks slow? :p I'm just trying to tell Zyt3x that try except isn't very slow. =X

I'm not really sure if it's possible to test the speed of begin..end blocks :\
08-21-2009, 08:48 AM
ian.

Well in general you should be able to figure out if they're slow or fast.. I'd think.. :p
08-21-2009, 09:31 AM
bullzeye95

Well, if you tell me how, I'll test it :rolleyes:
08-21-2009, 10:07 AM
noidea

Sooo, has any one experienced problems with the function?
08-21-2009, 10:55 AM
ian.

Works good. ^^ I couldn't find any problems.
08-21-2009, 04:03 PM
Naum

I'm thinking, why not scrap out all of srl and wizzyplugin's In(what ever)Arr/ex and replace it with something like noidea's stuff :)
08-21-2009, 04:09 PM
ian.

Quote:

Originally Posted by NaumanAkhlaQ

I'm thinking, why not scrap out all of srl and wizzyplugin's In(what ever)Arr/ex and replace it with something like ian's stuff :)

lolwut? =X
08-21-2009, 04:28 PM
Naum

Quote:

Originally Posted by ian.

lolwut? =X

Because I luff you ;). Changed
08-23-2009, 02:28 AM
noidea

Quote:

Originally Posted by NaumanAkhlaQ

I'm thinking, why not scrap out all of srl and wizzyplugin's In(what ever)Arr/ex and replace it with something like noidea's stuff :)

omfg <3 that would be like a wet dream.
08-23-2009, 02:54 AM
bullzeye95

Quote:

Originally Posted by NaumanAkhlaQ

I'm thinking, why not scrap out all of srl and wizzyplugin's In(what ever)Arr/ex and replace it with something like noidea's stuff :)

Because as far as I can tell, you can only pass TVariantArrays. You can't even typecast other array types to a TVariantArray; it will still give a runtime error.
08-23-2009, 04:02 AM
Naum

Quote:

Originally Posted by bullzeye95

Because as far as I can tell, you can only pass TVariantArrays. You can't even typecast other array types to a TVariantArray; it will still give a runtime error.

I'll test it first, btw I dig your sig.
08-23-2009, 11:27 AM
ZephyrsFury

If the parameter requires a TVariantArray wouldn't trying to give a var defined as a TintegerArray or TStringArray for example result in a type mismatch error?
08-23-2009, 11:48 AM
senrath

Quote:

Originally Posted by ZephyrsFury

If the parameter requires a TVariantArray wouldn't trying to give a var defined as a TintegerArray or TStringArray for example result in a type mismatch error?

That is correct.
08-23-2009, 11:50 AM
noidea

I just tested, and and it looks like it =\
One could always change that TIntegerArray to a TVariant array :D
but that could cause other problems in the long run =\
08-23-2009, 01:31 PM
ZephyrsFury

You could always ask Freddy to make an InArr function. I'm not sure how but using delphi you can make functions take undefined types (similar to how Swap() can swap any two variables as long as the types are the same). Perhaps you could do it in a plugin too although I'm not too sure.
08-23-2009, 01:34 PM
bullzeye95

Quote:

Originally Posted by ZephyrsFury

You could always ask Freddy to make an InArr function. I'm not sure how but using delphi you can make functions take undefined types (similar to how Swap() can swap any two variables as long as the types are the same). Perhaps you could do it in a plugin too although I'm not too sure.

To accept untyped variables, do something like:

Code:

procedure lulz(const mudkipz); begin end;

I tried making an InArr in a plugin, but I kept getting access violations and runtime errors. Maybe it's possible and I just didn't try long enough though.
08-24-2009, 12:30 AM
senrath

I have one that I made, but it only accepts TIntegerArrays, TStringArrays, TExtendedArrays, and TVariantArrays.

Edit: Nevermind. Apparently SCAR can't handle overloaded functions in plugins.
08-24-2009, 01:23 AM
Naum

Quote:

Originally Posted by senrath

I have one that I made, but it only accepts TIntegerArrays, TStringArrays, TExtendedArrays, and TVariantArrays.

Edit: Nevermind. Apparently SCAR can't handle overloaded functions in plugins.

Yeah, I found out the same lol. Just a suggestion for InStrArr to be put into WizzyPlugin or SCAR since it eats up speed in Text.Scar.