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; ...
Quer ler esse conteúdo completo?
Tenha acesso completo
