Diretivas de compilação - Clube Delphi 118

Muitos desenvolvedores ainda sofrem ou tem receio de migrar seus projetos para versões mais atuais do Delphi, porque algumas vezes são necessários ajustes no código. É comum escutarmos algo do tipo: “A minha aplicação foi desenvolvida em Delphi 7 e não roda no Delphi 2010”. Pois bem, iremos mostrar uma maneira simples de compatibilizar suas aplicações entre diferentes versões utilizando diretivas de compilação. Esta técnica é bem útil e muito usada no desenvolvimento ou adaptação de componentes e evita muitos Warnings do compilador. Neste caso iremos exibir dois exemplos, observe primeiramente a Listagem 1.

Listagem 1. Rotina de execução de SQL

01 function TForm1.SQLExecute(SQL : String): Boolean; 02 var 03 TransactionDesc :TTransactionDesc; 04 SQLDataSet :TSQLDataSet; 05 begin 06 SQLDataSet := TSQLDataSet.Create(Nil); 07 SQLDataSet.SQLConnection := SQLConnection1; 08 try 09 try 10 TransactionDesc.TransactionID := Random(999); 11 TransactionDesc.IsolationLevel := xilREADCOMMITTED; 12 SQLConnection1.StartTransaction(TransactionDesc); 13 SQLDataSet.CommandText := SQL; 14 SQLDataSet.ExecSQL; 15 SQLConnection1.Commit(TransactionDesc); 16 Result := True; 17 except 18 on e: exception do 19 begin 20 if SQLConnection1.InTransaction then 21 SQLConnection1.Rollback(TransactionDesc); 22 Result := False; 23 end; 24 end; 25 finally 26 SQLDataSet.Close; 27 SQLDataSet.Free; 28 end; 29 end; " [...] continue lendo...