Solved

Check if char variable is in an array using a "set" type comparison

Posted on 2015-02-12
6
130 Views
Last Modified: 2015-02-15
Hi all, I'm doing some "set type" comparisons in my app like this:

if h1 in ['0'..'9'] then....

Open in new window


.. where h1 is just a variable of char. No problem there, but I have a string array that contains a collection of punctuation characters ('!','#','.','?','%' etc) and I'm wondering if there's a comparable way (ie. using the "in" operator) to check if my variable h1 contains any of these characters. As in:

if h1 in PunctuationArray

Open in new window


... or something like that.

Thanks!
    Shawn
0
Comment
Question by:shawn857
6 Comments
 
LVL 49

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 40607394
Hi,

have you tried AnsiMatchStr or MatchStr

source := 'Henry';  
 if AnsiMatchStr(source, ['Brian', 'Jim', 'Henry'])
  then ShowMessage('First match was successful')
  else ShowMessage('First match was not successful');


http://www.delphibasics.co.uk/RTL.asp?Name=AnsiMatchStr

Regards
0
 
LVL 100

Expert Comment

by:mlmcc
ID: 40607899
So if h1 is a string   and your set is like above ['!','#','.','?','%', ',' ] you want to see if any of the punctuation characters are in the string, h1?

So if h1 = "Peter and Paul" the answer is false but if it is "Peter, Paul, and Mary" it is true.

In that case code like this should find it

Haschar := False;
For I := 0  to High(YourArray) 
    If POS(YourArray[I], h1) then
       Haschar := True;

Open in new window

mlmcc
0
 
LVL 26

Expert Comment

by:Sinisa Vuk
ID: 40607968
Similar to upper example - iterate your array and instead of pos (which can check only one char in time)
use function CheckString from this question: Q_28229176
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Closing Comment

by:shawn857
ID: 40609094
Thanks to all who responded.

Cheers
   Shawn
0
 
LVL 100

Expert Comment

by:mlmcc
ID: 40609282
How does that answer the issue or did I not understand your question?

mlmcc
0
 

Author Comment

by:shawn857
ID: 40611738
Hi mlmcc... you were looking at it backwards I think. Variable h1 contains just one character, and I want to see if that character is contained anywhere in the set ['!','#','.','?','%', ',' ]

Thanks for contributing though...

Cheers
   Shawn
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Hello everybody This Article will show you how to validate number with TEdit control, What's the TEdit control? TEdit is a standard Windows edit control on a form, it allows to user to write, read and copy/paste single line of text. Usua…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Learn how to create flexible layouts using relative units in CSS.  New relative units added in CSS3 include vw(viewports width), vh(viewports height), vmin(minimum of viewports height and width), and vmax (maximum of viewports height and width).

896 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

11 Experts available now in Live!

Get 1:1 Help Now