Saber el Style de una fuente

[roman]

Y ¿por qué no hacer simplemente el "casting" tal como propuse? No estoy seguro pero me parece que la representación interna de un conjunto está oficialmente documentada. A ver si busco por ahí...

// Saludos

[delphi.com.ar]

Empezado por roman

Y ¿por qué no hacer simplemente el "casting" tal como propuse? No estoy seguro pero me parece que la representación interna de un conjunto está oficialmente documentada. A ver si busco por ahí...

Primero no he leido tu mensaje, cuando ingresé no había ninguno, y despues probé hacer un Cast (en Delphi 5), pero falló... Me pareció extraño, pero sinceramente no le quise dar vueltas


Saludos!

[delphi.com.ar]

PD: Ahora porbé el cast, y funciona sin problemas... No se que habré hecho

[jachguate]

Solo quiero acotar que no me parece que un set se guarde en un solo byte.

Esto limitaria el conjunto a solo ocho posibles elementos... y hay conjuntos con mas.

No puedo buscar ahora, pero estoy seguro que Delphi ajustará el tamaño de la variable a la cantidad de elementos del conjunto, por lo que en ocasiones se tratará de un tipo de 16 bits de longitud (como un Word), pero también puede ser de 32... un Longint o LongWord por ejemplo, o mas... con lo que ya quedaría bueno representarlo como un conjunto o como un Int64, etc.

Delphi, cuando almacena un conjunto, simplemente tiene una lista ordenada de todos los posibles valores que pueden pertenecer a este, y el conjunto no es mas que un BitMap que indica los valores presentes en el conjunto con 1 y los no presentes con 0.

Si los posibles valores son del tipo TFontStyle, que está definido por la siguiente enumeración (en ese orden):

fsBold, fsItalic, fsUnderline, fsStrikeOut

Se necesitarán solamente cuatro bits para representar un Set of TFontStyle, y un conjunto con los valores [fsBold, fsUnderline] será dado por el bitmap

1010

y un conjunto vacio, por el bitmap

0000

En fin... quizas sea buena idea hacer un SizeOf antes de decidir el tipo de datos a usar para almacenar el conjunto como un entero (o cualquier otro tipo escalar).

Hasta luego.

[delphi.com.ar]

Empezado por jachguate

Solo quiero acotar que no me parece que un set se guarde en un solo byte.

Esto limitaria el conjunto a solo ocho posibles elementos... y hay conjuntos con mas.

Puedes hacer una prueba mas que sencilla:

Código Delphi [-]
Format('FontStyle: %d ComponentState: %d', [SizeOf(TFontStyles), SizeOf(TComponentState)]);

Un comentario, yo he probado eso para poder sugerir un cast, pero no se poqué falló, me dio un error como que no era posible este tipo de cast, voy a morir con la duda de que había echo

Saludos!

[roman]

Empezado por jachguate

No puedo buscar ahora, pero estoy seguro que Delphi ajustará el tamaño de la variable a la cantidad de elementos del conjunto, por lo que en ocasiones se tratará de un tipo de 16 bits de longitud (como un Word), pero también puede ser de 32... un Longint o LongWord por ejemplo, o mas... con lo que ya quedaría bueno representarlo como un conjunto o como un Int64, etc.

Hasta donde he visto es cierto lo que dices. El tamaño depende de el rango máximo de valores. En este caso es un byte pero en otros habrá que hacer el moldeo a otro tipo de entero.

// Saludos

[delphi.com.ar]

Eso lo aseguro, que el compilador lo reduce a la mínima expresión, tenía la idea de que había una directiva al compilador para modificar esto, pero no la encotré.

Por otro lado, aquí tienen un ejemplo como otros conjuntro extaños siguen ocupando lo mínimo indispensable:

Código Delphi [-]
type
  TMiTipo1 = (msValorA1, msValorA2, msValorA3);
  TMiSet1  = set of TMiTipo1;

  TMiTipo2 = (msValorB1 = 253, msValorB2, msValorB3);
  TMiSet2  = set of TMiTipo2;

  {$MINENUMSIZE 4}
  TMiTipo3 = (msValorC1, msValorC2, msValorC3);
  TMiSet3  = set of TMiTipo3;
  {$MINENUMSIZE 1}

  TMiTipo4 = 0..31;
  TMiSet4  = set of TMiTipo4;

  TMiTipo5 = 1..32;
  TMiSet5  = set of TMiTipo5;

  TMiTipo6 = 'a'..'z';
  TMiSet6  = set of TMiTipo6;
....

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Lines.Add(Format('1> Tamaño: %d Tipo: %d Valor del Primer Item:%d', [SizeOf(TMiSet1), SizeOf(TMiTipo1), Integer(msValorA1)]));
  Memo1.Lines.Add(Format('2> Tamaño: %d Tipo: %d Valor del Primer Item:%d', [SizeOf(TMiSet2), SizeOf(TMiTipo2), Integer(msValorB1)]));
  Memo1.Lines.Add(Format('3> Tamaño: %d Tipo: %d Valor del Primer Item:%d', [SizeOf(TMiSet3), SizeOf(TMiTipo3), Integer(msValorC1)]));
  Memo1.Lines.Add(Format('4> Tamaño: %d Tipo: %d', [SizeOf(TMiSet4), SizeOf(TMiTipo4)]));
  Memo1.Lines.Add(Format('5> Tamaño: %d Tipo: %d', [SizeOf(TMiSet5), SizeOf(TMiTipo5)]));
  Memo1.Lines.Add(Format('6> Tamaño: %d Tipo: %d', [SizeOf(TMiSet6), SizeOf(TMiTipo6)]));
end;

Saludos!