¿1 Bit?

[delphi.com.ar]

Empezado por pevi

¿Hay alguna manera de k solo ocupe un bit?

Utilizando el resto del byte para almacenar el resto de la informacióm booleana, utilizando los operadores lógicos.

Saludos!

[dec]

Hola,

Empezado por Federico

Utilizando el resto del byte para almacenar el resto de la informacióm booleana, utilizando los operadores lógicos.

¿Me lo puede repetir más despacio, por favor? Muchas gracias.

[delphi.com.ar]

Digamos, si utilizas el primer bit de un byte para guardar un dato del tipo boolean (No es lo que hace el tipo boolean)... ¿Porqué no utilizar el resto para guardar 7 valores mas?
Puede hacerse a la antigua, utilizando los opreadores lógicos, por ejemplo marcando un bit con el operador or y preguntando por este con el and. O bien en lugar de utilizar este tipo de datos, podemos utilizar SETs... que Delphi los maneja de forma muy inteligente:

Código Delphi [-]
{ Extraída de http://www.clubdelphi.com/foros/showthread.php?t=23514 }
function IntToBase(Value: Integer; const Pattern: string): string;
var
  B, R: Integer;
begin
  Result := '';
  B := Length(Pattern); { Base }
  repeat
    R := Value mod B; { Resto }
    Result := Pattern[R+1] + Result;
    Value := Value div B;
  until Value = 0;
end;

{ Con conjuntos }
procedure TForm1.Button1Click(Sender: TObject);
type
  TBits = set of(Bit1, Bit2, Bit3, Bit4, Bit5, Bit6, Bit7, Bit8);
var
  B: TBits;
begin
  B := [Bit1, Bit2, Bit5, Bit8];
  Caption := IntToBase(Byte(B), '01');
end;

{ con operadores lógicos }
procedure TForm1.Button2Click(Sender: TObject);
var
  B: Byte;
begin
  B := $1 or $2 or $10 or $80;
  Caption := IntToBase(Byte(B), '01');
end;

Saludos!

[Casimiro Noteví]

Qué tiempos aquellos en los que había que ahorrar memoria por todos lados y teníamos que trabajar con bits

¡Cómo cambian las cosas!, ahora da igual si ocupa 8 u 80 megas, ahora es habitual conversaciones del estilo:

Ahora:
- ¿qué longitud le ponemos a este campo?
- ponle 50 bytes
- bueno, mejor 100, por si acaso
- pues ya puesto, dale 1000 y asi nos cubrimos la espalda
- vale, pues 1000.

Antes:
- ¿qué longitud le ponemos a este campo?
- 48 bytes
- uff, muchos son, 48 bytes * 10.000 registros = 480000 bytes
- es verdad, falta espacio, mejor 32
- vale, le doy 30 y que pongan abreviaturas

Es que todo tiene su parte buena y su parte mala.

[dec]

Hola,

Código Delphi [-]
  function IntToBase(Value: Integer; const Pattern: string): string;
  var
    B, R: Integer;
  begin
    Result := '';
    B := Length(Pattern); { Base }
    repeat
      R := Value mod B; { Resto }
      Result := Pattern[R+1] + Result;
      Value := Value div B;
    until Value = 0;
  end;

Yo con la función "IntToBase" ya tengo para estudiar lo que queda de año. Gracias Federico. Qué envidia, chico. Te felicito.

[OSKR]

Saludos!, yo aqi desde mi mundo en C(pp) puedo hacer eso con "campos de bits", supongo q pascal ha de tener algo semejante pero aun no lo he visto

 struct bits
 {
   unsigned tres : 3;
   unsigned dos: 2;
   unsigned dos2: 2;
   unsigned paridad: 1;
 };
 
 //...............
 bits Recep_puerto;
 //..............
 
 Recep_puerto.tres=8; (max 8 porq son solo 3 bits)
 
 //o si quiero descomponer un char seria algo asi:
 Recep_puerto=(char)otra_variable;

[DarkByte]

Por supuesto! C tiene esa maravillosa propiedad. Al igual que cuando creas una matriz has de indicar su espacio en memoria. Delphi lo omite salvando así buffers overflows y otras salvajadas cuando te excedes en el rango de memoria.