¿Cómo obtener información de un "bit set"?

[dec]

Hola,

Ese truco no me le sabía yo, Marcos, se agradece.

Aunque me parece a mí que Román no va por ahí...

Entonces el código ya podría quedar, como poco, de esta manera:

Código Delphi [-]
for i := 0 to 25 do // From A to Z
begin
  if Drive shr i and 1 = 1 then
  begin
    if s = '' then
      s := Chr( Ord( i + TRICK_ASCII_NUMBER ) )
    else
      s := s +'#'+ Chr( Ord( i + TRICK_ASCII_NUMBER ) );
  end;
end;

Siendo "TRICK_ASCII_NUMBER" igual a 65. Prescindiendo ya del arreglo "DRIVES".

[ecfisa]

Hola Dec.

Creo que se puede reducir un poco mas:

Código Delphi [-]
begin
  for i:= 0 to 25 do
    if Drive shr i and 1 = 1 then
      s:= s + Chr(TRICK_ASCII_NUMBER + i) + '#';
  SetLength(s, Length(s)-1);
end;

Saludos.

[dec]

Hola,

Muy chula esa ecfisa. Bueno, y la otra. Muchas gracias.

[roman]

Empezado por dec

Siendo "TRICK_ASCII_NUMBER" igual a 65. Prescindiendo ya del arreglo "DRIVES".

En un sentido excesivamente purista, no debes usar una constante para ese 65, sino, como puse, Ord('A'). No vaya a ser que algún día cambie el número asignado a la A .

// Saludos

[dec]

Hola,

Hombre, Román, pero, como no me digas de dónde saco yo esa "A"... es que no me aclaro.

Acaso esa constante no está del todo bien y llevas razón. Al fin y al cabo se trata de prescindir del arreglo, pero, ¿por qué, exactamente?... A mí es que se me ha metido en la cabeza porque intuyo (¡Cuidado!) otra forma de hacerlo (tal vez la que tú no dices... ), pero, lo cierto es que el arreglo tampoco pide pan, como se suele decir. ¿No? Por lo demás, el viejo truco del joven Marcos sigue siendo un buen truco.

[roman]

Empezado por dec

(tal vez la que tú no dices... )

Hey! No hay nada escondido. Ya no había puesto nada porque tanto Marcos como ecfisa contestaron lo que yo pensaba

// Saludos

[dec]

Empezado por roman

Hey! No hay nada escondido. Ya no había puesto nada porque tanto Marcos como ecfisa contestaron lo que yo pensaba

// Saludos

Este Román es una esfinge para mí. ¡¿Serán así todos los matemáticos?!

[ecfisa]

¿ Un código salomónico ?

Código Delphi [-]
const
   TRICK_ASCII_NUMBER = Ord('A');

[dec]

¡Buenas!

Hombre, ecfisa, ¡así es como se explican las cosas!

Nota mental: ir el alergólogo, que, algo sabrá de lo que me pase.