Fórum Usando Directiva de Compilação no Source do Projeto Delphi #405599
26/07/2011
0
program ConsumoSys;
uses Dialogs,
{$IFDEF VER220} Showmessage('DELPHI XE');
Forms, uDM in 'vcl\module\uDM.pas' {DM: TDataModule}, uFrmUsuario in 'vcl\form\default\uFrmUsuario.pas' , uRM in 'vcl\module\uRM.pas' {RM: TDataModule};
{$R *.res}
begin Application.Initialize; Application.MainFormOnTaskbar := True; Application.Title := 'ConsumoSys'; Application.CreateForm(TDM, DM); Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(TRM, RM); Application.Run;end.
O Problema é que aparece como erro a seguinte linha de codigo : {$IFDEF VER220} Showmessage('DELPHI XE');
Ronaldo Lanhellas
Curtir tópico
+ 0Posts
26/07/2011
Emerson Nascimento
program ConsumoSys;
uses
Forms,
Dialogs,
uDM in 'vcl\module\uDM.pas' {DM: TDataModule},
uFrmUsuario in 'vcl\form\default\uFrmUsuario.pas' ,
uRM in 'vcl\module\uRM.pas' {RM: TDataModule};
{$R *.res}
begin Application.Initialize;
{$IFDEF VER220} Showmessage('DELPHI XE'); {$ENDIF}
Application.MainFormOnTaskbar := True; Application.Title := 'ConsumoSys'; Application.CreateForm(TDM, DM); Application.CreateForm(TfrmPrincipal, frmPrincipal); Application.CreateForm(TRM, RM); Application.Run;end.
Gostei + 0
26/07/2011
Ronaldo Lanhellas
Eu preciso executar uma instrução antes de qualquer coisa no DELPHI, pois quando usamos o USES ele compila a UNIT correto ? teria alguma forma de dizer para o delphi : "SÓ COMPILE AS UNITS depois deste ponto !"
Gostei + 0
26/07/2011
Ronaldo Lanhellas
por isso pensei em fazer com a directiva de compilação antes da clausula uses
Gostei + 0
26/07/2011
Ronaldo Lanhellas
Gostei + 0
26/07/2011
Ronaldo Lanhellas
Se alguem poder me dar um dica agradeço muito, pois preciso urgentemente de uma solução para esta situação.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)