Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   if ... in [] con cadenas???? (https://www.clubdelphi.com/foros/showthread.php?t=16756)

neon 10-12-2004 11:53:07

if ... in [] con cadenas????
 
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 10-12-2004 12:27:17

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 10-12-2004 12:40:41

Hola:

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

Saludos

ruina 10-12-2004 13:15:39

¿que tal un sencillo pos?

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


La franja horaria es GMT +2. Ahora son las 17:20:29.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi