[Помидоркин]

Сообщение от Alegun

за(варить)дать ...

гы

те же штаны только застежка сзади,

Код:

  type
   TBaseGrid = class(TCustomControl)
   private
    ...
    FGrid: array of TbgRow;
    ...

Код:

constructor TBaseGrid.Create2(AOwner:TComponent; BData: TBData);
begin
 inherited Create(AOwner);
....
 SetLength(FGrid, BData[0].Count);
 for i:= 0 to Length(FGrid)-1 do
 begin
  FGrid[i,0].toEdit:= False;
  FGrid[i,0].ValueType:= vtBeer;

  FGrid[i,1].toEdit:= False;
  FGrid[i,1].ValueType:= vtPrice;

  FGrid[i,2].toEdit:= True;
  FGrid[i,2].ValueType:= vtLiters;
  //... и т.д.
 end;
end;