4 replies to this topic

[eduarcol]

Quiero usar el operador in, pero al definir el set de datos donde va a buscar no me deja incluir constantes, luego como hago para poder definir un set con el siguiente array:

delphi

_PREFIJOSCORTOS: Array[0..4] of string = ('414', '412', '416', '426', '424');

La idea es poder hacer lo siguiente.

delphi

cPrefijo := Copy(cTelefono, 1, 3);
if cPrefijo in stPrefijosCortos then

Alguna idea???

[seoane]

Y no es mas sencillo esto:

delphi

  cPrefijo:= Copy(cTelefono, 1, 3);
  if StrToIntDef(cPrefijo,0) in [414, 412, 416, 426, 424] then

O incluso esto:

delphi

var
  prefijos: set of integer;
begin
  prefijos:= [414, 412, 416, 426, 424]; 
 
  cPrefijo:= Copy(cTelefono, 1, 3);
  if StrToIntDef(cPrefijo,0) in prefijos then

[eduarcol]

lo que pasa es que hay una segunda parte que es la que complica todo

Los prefijos reales son:

_PREFIJOS:  Array[0..4] of string = ('0414', '0412', '0416', '0426', '0424');

y si los trato como integer no me va a funcionar, los prefijos cortos si los puedo evaluar perfectamente asi pero los largo no me lo permite.

Siguiendo tu ejemplo si coloco set of string no me permite ya que es solo tipos ordinal.

[seoane]

Y algo así:

delphi

function Dentro(Str, Lista: String): Boolean;
begin
  with TStringList.Create do
  try
    Commatext:= Lista;
    Result:= Indexof(Str) >= 0 ;
  finally
    Free;
  end;
end;
 
 
begin
  if Dentro('0416','0414,0412,0416,0426,0424') then
    ShowMessage('Lo encontre');
end;

[eduarcol]

Tomando tu idea hice unos pequeños cambios para poder seguir trabajando con arreglos

delphi

function Estaen(Prefijo: String; Lista: Array of String): Boolean;
var
   nIdx: Integer;
begin
   Result := False;
   for nIdx := 0 to Length(Lista) - 1 do
   begin
      if Lista[nIdx] = Prefijo then
      begin
         Result := True;
         Break;
      end;
   end;
end;

Gracias por la ayuda