Funciones comunes para CLX y VCL

[salvica]

Por cierto, hecha la prueba, con un proyecto CLX también funciona


La única diferencia que observo, es que con el form que uso de contenedor para la función anterior crearFecha_PHP() en CLX tengo que hacer un "casting"

Código Delphi [-]
.....
var
.....
  tmpForm      : TForm;
.....
begin
.....
  tmpForm := (Application.MainForm as TForm);
  crearFecha_PHP( tmpForm, LOCAL_DIR+OS_Separador+'includes', tmpFile, 120 );
.....
end;

mientras que en los VCL no es necesario

Código Delphi [-]
.....
var
.....
  tmpForm      : TForm;
.....
begin
.....
  tmpForm := Application.MainForm;
  crearFecha_PHP( tmpForm, LOCAL_DIR+OS_Separador+'includes', tmpFile, 120 );
.....
end;

Saludos