array

sharon95

how to control if some letters are contained in one string?
example:

Array[1] := 'a';
Array[2] := 'r';
Array[3] := 'h';

for i := 1 to LengthSrnm do
if not LastName = Array.........

thanks!

kriki

Try this:

TheString := 'abcdefg';

IF DELCHR(TheString,'=',DELCHR(TheString,'=','a')) <> '' THEN
  MESSAGE('a is in string');
IF DELCHR(TheString,'=',DELCHR(TheString,'=','x')) <> '' THEN
  MESSAGE('x is in string');

mohana_cse06

didn't get your question. please explain..

sharon95

I want to check if letters 'a', 'r' or 'h' are contained in one string...

mohana_cse06

it should be something like
FOR I := 1 to ARRAYLEN(Array) DO
BEGIN
IF Array IN THEN BEGIN
//do something here
END;
END;

sharon95

it gives me an error... it says that [ is expected after IN

mohana_cse06

not sure what is happening. some text is missing after posting.
IF Array IN [ 'a','r','h' ] THEN BEGIN

sharon95

Why it gives me this error " type conversion is not possible beacuse 1 of the operators contains an invalid type char=text"?

mohana_cse06

what type of variable is Array? you need to change it to some reasonable name..

sharon95

it's a text

sharon95

however, it isn't called "array"

Kishorm

Try this...

IF Array[i] IN [ 'a','r','h' ] THEN BEGIN

kriki

Try this:

TheString := 'abcdefg';

IF DELCHR(TheString,'=',DELCHR(TheString,'=','a')) <> '' THEN
  MESSAGE('a is in string');
IF DELCHR(TheString,'=',DELCHR(TheString,'=','x')) <> '' THEN
  MESSAGE('x is in string');