Gerar Relatório

[natvs 0]

Alguém pode me ajudar nisso, estou tentando criar um relatorio usando Stringgrid sem banco de dados, só que não está dando muito certo, bom desde já agradeço

 

// Criação dos Campos no ClientDataSet;

dmGerFin.ClientDataSet1.FieldDefs.Clear;

for i := 0 to StringGrid1.RowCount - 1 do

begin

with StringGrid1 do

dmGerFin.ClientDataSet1Mes_JC.AsString:= Cells[0,i];

dmGerFin.ClientDataSet1Vlr_PgtoJC.AsString:=StringGrid1.Cells[1,i];

dmGerFin.ClientDataSet1.Edit;

dmGerFin.ClientDataSet1.Post;

dmGerFin.ClientDataSet1.ApplyUpdates(0);

end;

dmGerFin.ClientDataSet1.CreateDataSet;

// Gravação dos dados no ClientDataSet

dmGerFin.ClientDataSet1.Append;

for i := 0 to StringGrid1.RowCount - 1 do

begin

with StringGrid1 do

dmGerFin.ClientDataSet1Mes_JC.AsString:=Cells[0,i];

dmGerFin.ClientDataSet1Vlr_PgtoJC.AsString:=StringGrid1.Cells[1,i];

dmGerFin.ClientDataSet1.Edit;

dmGerFin.ClientDataSet1.Post;

dmGerFin.ClientDataSet1.ApplyUpdates(0);

end;

path := ExtractFilePath(Application.ExeName);

dmGerFin.frx_JC.LoadFromFile(path + 'relJC.fr3');

dmGerFin.frx_JC.ShowReport();