Fórum Alguém já usou a QuantumGrid 4 ??? #152892

Olá pesoal,
Alguém já usou a QuantumGrid? Estou com um problema. Gostaria de saber se como inserir dados no segundo nível da grid? Eu estou usando arquivos texto para preenche-la. Não estou usando DB.
Isso seria possível?

Obrigado,
Marcelo

Eu estou tentando segundo alguns demos da grid, da seguinte forma...

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
cxGridCustomTableView, cxGridTableView, cxClasses, cxControls,
cxGridCustomView, cxGridLevel, cxGrid, cxGridDBTableView, cxStyles,
cxCustomData, cxGraphics, cxFilter, cxData, cxEdit;

type
TForm1 = class(TForm)
cxGrid1Level1: TcxGridLevel;
cxGrid1: TcxGrid;
cxGrid1TableView1: TcxGridTableView;
cxGrid1TableView1Column1: TcxGridColumn;
cxGrid1TableView1Column2: TcxGridColumn;
cxGrid1Level2: TcxGridLevel;
cxGrid1TableView2: TcxGridTableView;
cxGrid1TableView2Column1: TcxGridColumn;
cxGrid1TableView2Column2: TcxGridColumn;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses
cxDataStorage;

procedure TForm1.FormCreate(Sender: TObject);
const
RecCount = 10;
var
I: Integer;
begin
with cxGrid1TableView1 do
begin
BeginUpdate;
try
DataController.RecordCount := RecCount;
Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
Columns[1].DataBinding.ValueTypeClass := TcxStringValueType;
for I := 0 to RecCount - 1 do
begin
DataController.Values[I, 0] := I;
DataController.Values[I, 1] := ´Record Number - ´ + IntToStr(I);
end;
finally
EndUpdate;
end;
end;

with cxGrid1TableView2 do
begin
BeginUpdate;

try
DataController.RecordCount := RecCount;
Columns[0].DataBinding.ValueTypeClass := TcxIntegerValueType;
Columns[1].DataBinding.ValueTypeClass := TcxStringValueType;

for I := 0 to RecCount - 1 do
begin
DataController.Values[I, 0] := I;
DataController.Values[I, 1] := ´Level2 Number - ´ + IntToStr(I);
end;
finally
EndUpdate;
end;
end;

end;

end.