Funciones comunes para CLX y VCL

salvica · #4 03-10-2005

Cita:

Empezado por dec

Hola,

A lo peor es una pregunta sin sentido, pero, ¿cómo sabes tú que están usándose las unidades "Q"?

Ante todo, gracias por intentar ayudarme

Sobre lo segundo, las unidades que tengo definidas las creé utilizando proyectos en CLX, por lo que se utilizan librerías "Q"

Ahora, deseo utilizar las mismas funciones, pero con un proyecto VCL, por lo que no quisiera tener duplicadas las librerías, ya que cualquier cambio en una debería reflejarla en las demás.

Según la ayuda del delphi, los "$define" que se declaran en un módulo, son locales al módulo, pero he comprobado que éste código es global al proyecto:

Código Delphi [-]interface
uses
{$ifdef LINUX}
{$else}
  Windows,
{$endif}
  IniFiles, SysUtils;
{$ifdef LINUX}
{
  +------------------------------------------------------------------------
  | FUNCIONES y PROCEDIMIENTOS solo para Linux
  +------------------------------------------------------------------------
}
{$else}
{
  +------------------------------------------------------------------------
  | FUNCIONES y PROCEDIMIENTOS solo para Windows
  +------------------------------------------------------------------------
}
  function WinExecAndWait32(FileName:String; Visibility : integer):integer;
  function WinExecNoWait32(FileName:String; Visibility : integer):integer;
  function CapsLockState:integer;
  function NumLockState:integer;
{$endif}

Entonces, lo que se me escapa, es como definir una variable global al proyecto, para hacer que utilice unas librerías u otras.

Esto no funciona (y creo que debería funcionar)

Código Delphi [-]interface
uses
{$ifdef VCL}
{ uses para VCL }
  ExtCtrls, Forms, StdCtrls,
{$else}
{ uses para CLX }
  QExtCtrls, QForms, QStdCtrls,
{$endif}
{ uses comunes }
  SysUtils;

{
  +--------------------------------------------------------------------
  | procedimiento de creación de un fichero de fechas en PHP
  +--------------------------------------------------------------------
  | entradas:
  |     Ventana -----> el contenedor del objeto TListBox a crear
  |     DIRECTORIO -> el path del fichero en LOCAL
  |     FICHERO ----> el nombre del fichero (extensión ".INC")
  |     DEMORA ----> a partir de qué momento la fecha es inválida (segundos unix)
  +--------------------------------------------------------------------
}
  procedure crearFecha_PHP( Ventana:TForm; DIRECTORIO, FICHERO:string; DEMORA:integer );

dá el siguiente error (aproximadamente, porque ahora estoy en el curro y no tengo la aplicación):

Incompatible types 'TForm.Form' and 'Tform.QForm'

Gracias
salvica