Нужен пример на С++

Dimitri

Все примеры на паскале а я в нем как свинья с апельсинах я собственно и в С++ только чуток лучше разбераюсь Вот пример помогите разобраться

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.

Можно просто прокаментировать

-=Serg=-

написал:

Cross: TfrxCrossView; //Что делают этой строкой

Объявление локальной переменной

написал:

if c is TfrxCrossView then  //Откуда взялась С

Параметр процедуры

написал:

Cross := TfrxCrossView©;  //Тоже не понятная сторока

Привидение типов

написал:

//Тут что сделать хотят понимаю а как нет
Cross.AddValue(, [j], [StringGrid1.Cells[i - 1, j - 1]]);

Добавление в крос данных из таблицы

Dimitri

Если в первой стороке обевляется переменая то как написать первую и четвёртую стрку я понял а параметр процедуры и привидение типов как написать на С++ я пока не понел

-=Serg=-

помоему так:
Cross = (TfrxCrossView)c;

Dimitri

А С что и откудавзялась

-=Serg=-

В параметре процедуры:
procedure TForm1.frxReport1BeforePrint(c: TfrxReportComponent);

Dimitri

Большое спа дальше сам допру