FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
||||
|
||||
Aclaremos que TFontStyles no es un array, es un "set of" muchas veces nombrados como "conjuntos".
Lo que podrías hacer es descomponer este "conjunto", e ir agregando valores a una variable, y a la inversa por ejemplo: Código:
function FontStyleToInteger(AStyle: TFontStyles): Integer; begin Result := 0; if fsBold in AStyle Then Result := Result or $1; if fsItalic in AStyle Then Result := Result or $2; if fsUnderline in AStyle Then Result := Result or $4; if fsStrikeOut in AStyle Then Result := Result or $8; end; function IntegerToFontStyle(Value: Integer): TFontStyles; begin Result := []; if (Value and $1) = $1 Then Include(Result, fsBold); if (Value and $2) = $2 Then Include(Result, fsItalic); if (Value and $4) = $4 Then Include(Result, fsUnderline); if (Value and $8) = $8 Then Include(Result, fsStrikeOut); end; Saludos!
__________________
delphi.com.ar Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla. |
#2
|
||||
|
||||
Me uno a la Sugerencia de Delphi.com.ar añadiendo que se guarde en la base de datos como un String con el siguiente formato:
Tipo de fuente:tamaño de fuente : opciones de negrita y demás Ejemplo: Times New Roman:12:5 Lo guardas como un String en la base de datos, y despues al recuperarlo, usas un StringList en el que cargas la linea al completo, usando como separador los dos puntos ":" Código:
MiStringList.delimitedChar := ':'; MiStringList.delimitedText:= <Linea de la base de datos> nombre := MiStringList[0]; tamaño := MiStringList[1]; opciones:= MiStringList[2]; Última edición por Lepe fecha: 10-02-2004 a las 18:49:00. |
#3
|
|||
|
|||
Saludos cordiales....!!!
Gracias por responderme, seguro que de una u otra forma me saldrá bien!!
Saludos!!! |
|
|
|