Cambio De String A Style
 

BUENOS DIAS

Lo que sucede es que estoy trabajando en delphi y tengo en una variable un registro de tipo style y necesito cambiarlo a string. ¿Alguien me puede decir como lo hago?

Código Delphi [-]
TProgrammerType = (tpDelphi, tpVisualC, tpVB, tpJava) ;


uses TypInfo;
var s: string;
s := GetEnumName(TypeInfo(TProgrammerType),
                  integer(tpDelphi)) ;

//s tendrá la cadena 'tpDelphi'

Vía about.com

El codigo que tengo implementado es el siguiente.

ft := TFont.Create;
ft.Name := qRender.FieldByName('SYMBOLFONTNAME').AsString; ft.Color:=StringToColor(qRender.FieldByName('SYMBOLFONTCOLOR').AsString);
ft.size :=qRender.FieldByName('SYMBOLFONTSIZE').AsInteger;
ft.style:=qRender.FieldByName('SYMBOLFONTSTYLE').AsString;

y cuando asigno el ft.style me sale que no son compatibles los tipos string y style. Lo que necesito es cambiar el tipo string a style pero no se como hacerlo.

no se como implementar lo que me envio.


gracias

Que yo sepa, pues no hay una manera automática. Esto se debe a que el estilo de fuente es un conjunto, y no existe una manera de convertir de string a conjunto.

Hacerlo a mano tampoco es tan complicado. Hay dos cosas que se me ocurren, en la base de datos, ¿guardás un string o un integer? Lo pregunto porque un conjunto es un número de ocho bits, así que podrías usar eso para almacenar en la base, y después levantarlo:

Código Delphi [-]
ft.style:= TFontStyles(qRender.FieldByName('SYMBOLFONTSTYLE').AsInteger);

Si lo guardaste como un string, entonces habría que ver cómo codificaste el estilo en string y hacer el proceso opuesto.

Hasta ahí nos había quedado claro.

Normal, son de diferente tipo.

Esto es lo que pasa cuando uno no le dedica el suficiente tiempo a redactar una pregunta. Que dice justo lo contrario de lo que quería decir. :(:(:(
Y es resto perdemos el tiempo, cosa que molesta mucho.

Sí hay una manera, utilizando RTTI, muy similar a como hemos comentado arriba (el caso justo contrario).

Código Delphi [-]
  // Supongamos que esta variable tiene el tipo
  Str := 'fsBold';
  // Convertir el String a entero segun el tipo a Estilo
  i := GetEnumValue(TypeInfo(TFontStyle), Str);
  // comprobamos que existe ese valoir (por si lo hemos escrito mal)
  if (i <> -1) then begin
    // Y sacamos el estilo asociado
    fs := TFontStyle(i);
    // Ya lo podemos asignar
    Label1.Font.Style := Label1.Font.Style + [fs];
  end;

Otro detalle, es que como Font.Style es un conjunto, no puedes asignarlo directamente a la variable:

Código Delphi [-]
   Label1.Font.Style := fs;

Sino que debes añadir o eliminar elementos:

Código Delphi [-]
   Label1.Font.Style := Label1.Font.Style + [fs];
   Label1.Font.Style := Label1.Font.Style - [fs];

Ja, chupate esa mandarina. Hoy he aprendido otra valiosa lección.

¡Gracias Neftali!

gracias neftali funciona bien