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}
{$else}
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}
ExtCtrls, Forms, StdCtrls,
{$else}
QExtCtrls, QForms, QStdCtrls,
{$endif}
SysUtils;
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