Funciones comunes para CLX y VCL

dec · #3 03-10-2005

Hola,

A lo peor es una pregunta sin sentido, pero, ¿cómo sabes tú que están usándose las unidades "Q"? Trataré de explicarme. Puedes hacer que se incluyan unas unidades u otras y eso es lo que haces creo que como tiene que hacerse. Ahora bien, supongamos este caso:

Código Delphi [-] {$IFNDEF CLX}
   {$DEFINE CLX}
 {$ENDIF}
 
 uses
   {$IFDEF CLX}
     Dialogs;
   {$ELSE}
     QDialogs;
   {$ENDIF}
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ShowMessage('ClubDelphi.com');
 end;

Pregunto: Además de lo ya hecho, discriminando las unidades en función de la instrucción de compilación adecuada, ¿no debería también hacer algo como lo siguiente?

Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject);
 begin
   {$IFDEF CLX}
     Dialogs.ShowMessage('ClubDelphi.com');
   {$ELSE}
     QDialogs.ShowMessage('ClubDelphi.com');
   {$ENDIF}
 end;

No necesariamente incluyendo la unidad antes del procedimiento (en este caso lo hize para que se vea que el procedimiento "ShowMessage" se encuentra en ambas unidades "Dialogs" y "QDialogs") a utilizar, en todo caso, ¿no debería hacerse de este modo?

Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject);
 begin
   {$IFDEF CLX}
     ShowMessage('ClubDelphi.com');
   {$ELSE}
     ShowMessage('ClubDelphi.com');
   {$ENDIF}
 end;