InArr();

[noidea]

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


Rounds two: THanks to Naum

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:

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
Took about two minutes.

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

[Naum]

Also have an InArrEx:

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;

[noidea]

Done ^.^

[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

[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.

[noidea]

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.

[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.

[noidea]

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

[bullzeye95]

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.

[ian.]

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? I'm just trying to tell Zyt3x that try except isn't very slow. =X

[bullzeye95]

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? 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 :\

[ian.]

Well in general you should be able to figure out if they're slow or fast.. I'd think..

[bullzeye95]

Well, if you tell me how, I'll test it

[noidea]

Sooo, has any one experienced problems with the function?

[ian.]

Works good. ^^ I couldn't find any problems.

[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

[ian.]

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

[Naum]

lolwut? =X

Because I luff you . Changed

[noidea]

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.

[bullzeye95]

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.

[Naum]

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.

[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?

[senrath]

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.

[noidea]

I just tested, and and it looks like it =\
One could always change that TIntegerArray to a TVariant array
but that could cause other problems in the long run =\

[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.