Conversão de sistema do Delphi 2007 para XE2

Delphi

23/11/2011

Bom dia,

Estou convertendo um sistema escrito em Delphi 2007 para o XE2.

Tenho dois componentes que foram descontinuados, que são o mxNativeExcel (exportar para o excel uma query)
e o ExportQR (exportar um relatório feito no quickreport).

Eles não funcionam do Delphi XE2.

Existe algum componente que os substitua?

Em caso negativo, alguém teria uma rotina que faz esse trabalho?

Obrigado
ELCIO FONTANESI ROSSI
elciorossi@hotmail.com
Elcio Rossi

Elcio Rossi

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

23/11/2011

Qual banco de dados você esta utilizando?
GOSTEI 0
Elcio Rossi

Elcio Rossi

23/11/2011

Firebird 2.5
GOSTEI 0
Leonardo Xavier

Leonardo Xavier

23/11/2011

O Excel pode ser resolvido com o seguinte script:
var linha, coluna : integer;
var planilha : variant;
var valorcampo : string;
begin
//sua procedure ou função
 Query1.CachedUpdates := true;
 planilha:= CreateoleObject(Excel.Application);
 planilha.WorkBooks.add(1);
 planilha.caption := Exportando dados do dbGrid para o Excel;
 planilha.visible := true;

 Query1.ApplyUpdates;
 Query1.First;
 for linha := 0 to Query1.RecordCount - 1 do
 begin
   for coluna := 1 to Query1.FieldCount do
   begin
     valorcampo := Query1.Fields[coluna - 1].AsString;
     planilha.cells[linha + 2,coluna] := valorCampo;
   end;
   Query1.Next;
 end;
 for coluna := 1 to Query1.FieldCount do
 begin
   valorcampo := Query1.Fields[coluna - 1].DisplayLabel;
   planilha.cells[1,coluna] := valorcampo;
 end;
 planilha.columns.Autofit;


Mas quanto ao Quik report, vai ter que migrar para Rave report. A não ser que tenha um componente quikreport para Delphi XE. Qualquer coisa posta ai. Abraços
GOSTEI 0
POSTAR