quiero saber si la cadena A se encuentra dentro de la cadena B
digamos que la cadena B son una serie de permisos,separados con coma y la cadena A es con el que cuenta,
ejemplo
A:="9" y B:="01,02,1,05,3,06,9,8,07,11,23,45,65,35"
el 9 si se encuentra dentro de la cadena B
entonces si tiene acceso
y ahi todo bien, pero cuando es de dos digitos digamos
A:=07 y B:="01,02,1,05,75,3,06,9,8,5,11,23,45,65,35"
ahi ya no va bien la cosa , pues me detecta que si hay un 0 o 7 y me deja entrar pero no existe en realidad el permiso 07
entonces para que pueda accesar la cadena debe de contener dentro de ella el 07 asi
A:=07
B:="01,02,1,05,75,3,06,9,8,5,11,23,07,45,65,35"
no se si me explique bien el caso es que yo tengo algo asi
if AnsiContainsStr (B,A) then begin showmessage('Acceso con exito'); end else begin MessageBox(Handle,PChar('No cuenta con el permiso correspondiente'); end;
No se si sea la manera mas correcta de hacerlo, pero es mas o menos el proceso,y me deja pasar aun cuando no hay ese tipo de permiso, espero haberme explicado bien si no cualquier duda la respondere, agradezco cualquier ayuda,consejo o sugerencia que me puedan dar...