Нужен пример на С++
Все примеры на паскале а я в нем как свинья с апельсинах я собственно и в С++ только чуток лучше разбераюсь Вот пример помогите разобраться
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
frxClass, StdCtrls, Grids, frxCross;
//Объевляем понятно
type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
frxCrossObject1: TfrxCrossObject;
frxReport1: TfrxReport;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure frxReport1BeforePrint(c: TfrxReportComponent);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
//Создаём и заполняем таблицу тоже понятно
procedure TForm1.FormCreate(Sender: TObject);
var
i, j: Integer;
begin
for i := 1 to 16 do
for j := 1 to 16 do
StringGrid1.Cells[i - 1, j - 1] := IntToStr(i * j);
end;
//Здесь разобрался
procedure TForm1.Button1Click(Sender: TObject);
begin
frxReport1.ShowReport;
end;
//А тут начинается самое интересное
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);
var
Cross: TfrxCrossView; //Что делают этой строкой
i, j: Integer;
begin
if c is TfrxCrossView then //Откуда взялась С
begin
Cross := TfrxCrossView(c); //Тоже не понятная сторока
for i := 1 to 16 do
for j := 1 to 16 do
//Тут что сделать хотят понимаю а как нет
Cross.AddValue([i], [j], [StringGrid1.Cells[i - 1, j - 1]]);
end;
end;
end.
Комментарии
Параметр процедуры
Привидение типов
Добавление в крос данных из таблицы
Cross = (TfrxCrossView)c;
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);