Modificar y guardar las propiedades Font

[yusnerqui]

Hola

Empezado por Carmelo Cash

2- Saben de alguna forma en que pueda guardar directamente Edit1.Font sin tener que colocar un campo para cada propiedad del font?

Si

Código Delphi [-]
Function FontToInteger (FFont : Tfont) : Integer;
begin
  Result := Integer(FFont);
end;

Function IntToFont (FInt : Integer) : TFont;
begin
  Result := TFont(FInt);
end;

Luego solo te falta guardar en un campo de tu tabla y restablecerlo cuando gustes

Espero te sirva

Un saludo