ENESOFT Blog

Aqui vuelvo con un pequeño procedimiento sencillo que me sirve para listar todos los meses del año incluido el ultimo del año anterior (para sistemas de cobros etc.) en un ComboBox o DBComboBox en Delphi, Aquí os dejo el código:

Hoy me encontré con dos funciones que no estan documentadas en la ayuda de Delphi, esas son ColorToString y StringToColor, ambas estan ubicadas en la Unidad Graphics, su funcionamiento sirve para convetir colores en String y Viceversa, ejemplos:

procedure TForm1.Button1Click(Sender: TObject);
var Color: TColor;
begin
  Color := $FFFFFF;
  ShowMessage(ColorToString(Color));
end;

procedure TForm1.Button1Click(Sender: TObject);
var Color: String;
begin
  Color := '$FFFFFF';
  Form1.Color := StringToColor(Color);
end;

Eso es todo.

Bienvenidos a mi web, aquella que antes se llamaba "El Blog de Fernando Leonor" ahora se llama "ENESOFT" (Enecumene Softwares), a partir de ahora publicaremos articulos mas interesantes y utiles, al igual que tips y trucos que vaya encontrando en la red.

Con mucho agrado les doy la bienvenida,

Fernando.