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

[dec]

Hola,

Como funcionar... parece que funciona. Sin embargo, me queda la espinita de no saberme quitar de encima el "mapa de unidades" que conformo "directamente" y que creo que puede hacerse de otra forma más elegante. Por lo demás, lo mío, lamentablemente, no son las matemáticas, así que sigo son comprender muy bien qué ocurre a nivel de "bits", quizá algún día... sea como sea, el código podría quedar más o menos así, a modo de ejemplo:

Código Delphi [-]
procedure TForm2.StShellNotification1DriveSpaceChange(
 Sender: TObject; Drive: Cardinal);

const
  DRIVES : array[ 0..25 ] of char =
  (
    'A', 'B', 'C', 'D', 'E', 'F',
    'G', 'H', 'I', 'J', 'K', 'L',
    'M', 'N', 'O', 'P', 'Q', 'R',
    'S', 'T', 'U', 'V', 'W', 'X',
    'Y', 'Z'
  );

var
  i : byte;
  s : string;

begin
  s := '';

  for i := Low( DRIVES ) to High( DRIVES ) do
  begin
    if Drive shr i and 1 = 1 then
    begin
      if s = '' then
        s := DRIVES[ i ]
      else
        s := s +' # '+ DRIVES[ i ];
    end;
  end;

  ShowMessage( 'Drive Space Change in : ' + s );
end;

Por supuesto, cualquier sugerencia será bienvenida.

[roman]

En realidad, el arreglo DRIVES te lo puedes ahorrar. A partir de I en la iteración puedes obtener la letra así:

Código Delphi [-]
Chr(I + Ord('A'))

// Saludos

[dec]

Hola,

No entiendo, Román. ¿De dónde saco yo esa "A"?

[marcoszorrilla]

Se trata del viejo truco de sumarle 65 al 0 que es la unidad A (ASCII), 1 + 65 = 66 =B etc.

Recuerdo que yo lo usaba en ensamblador.

Un Saludo.

[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.