[SOLVED]Check if char exists in a predefined array

[torbente]

Using Lazarus 2.0.10, on win 8.1

Code: Pascal  [Select][+][-]

1. Const:
2. MyArray : array[0..3] of char = ('A','N','S','O');
3.  
4. s : string = 'LWFEUÑOWWÑLKDWE';
5. for counter := 1 to length(s) do
6.    // if s[counter] exist in MyArray do something

How i can check i s[counter] is valid char in myarray? i could add another counter to check if s[counter] = MyArray[counter2], but i want know if there is a simple way to do it.

Thanks.

[Bart]

IIRC then fpc trunk allows the "in" operator for that (which internally will I think use a loop.
If you make MyArray a string then you can use Pos() to determine if a char is in MyArray.
Internally this uses more optimized code than a simple for loop IIRC, so it might be faster.

Bart

[ASerge]

You can also use sets if the array does not contain "long" characters.
And I would recommend write a separate CharInArray function, and then choosing it implementation.

[torbente]

Thanks for the replys:

The pos function using a string is a great solution!

[Zvoni]

The way i do it:
Loop through MyArray (instead of your target-string) and use StrScan
https://www.freepascal.org/docs-html/current/rtl/strings/strscan.html

[PascalDragon]

The way i do it:
Loop through MyArray (instead of your target-string) and use StrScan
https://www.freepascal.org/docs-html/current/rtl/strings/strscan.html

Better use Pos. Pascal strings are allowed to have NUL characters, while StrScan works on NUL-terminated strings, thus will stop on the first NUL found.

[Zvoni]

The way i do it:
Loop through MyArray (instead of your target-string) and use StrScan
https://www.freepascal.org/docs-html/current/rtl/strings/strscan.html

Better use Pos. Pascal strings are allowed to have NUL characters, while StrScan works on NUL-terminated strings, thus will stop on the first NUL found.

PD,
i know that.
That's why i wrote "The way i do it", since i have full control of "my" strings.....