if ... in [] con cadenas????

[neon]

Hola,
quiere hacer la siguiente comprobación, suponiendo que grupo es numérico, quiero comprobar si está en una cadena recuperada de una sentencia sql.
Me explicaré mejor con un ejemplo:

Grupo := 12; (Integer)
GrupoPrueba := 1,2,12,45 (String)

if IntToStr(Grupo) in [GrupoPrueba] then
Realizar Operacion

Resulta que no funciona, sabeis como hacerlo de esta forma? y alguna otra?

[[Lepe]]

Yo usaría otro método para eso:

Código Delphi [-]
var grupoprueba : TStringList;
begin
  grupoprueba := TStringList.Create;
  try
  grupoprueba.CommaText:= '1,12,123';
  if grupoprueba.IndexOf('12') <>-1 then
    ShowMessage('si existe');
  finally
    grupoprueba.Free;
  end;

end;

Tambien puedes poner Grupoprueba.duplicates := dupError; y añadir directamente la cadena al StringList, si existe, saltaría una excepción que debes capturarla.

Tú eliges.

Saludos

[cahp]

Hola:

La cadena de recuperas, es un conjunto de valores de una select?

Saludos

[ruina]

¿que tal un sencillo pos?

Código Delphi [-]
    if Pos(inttostr(Grupo)+',',Grupoprueba+',')>0 then ...