Форум программистов [Powered by Invision Power Board]

Код

interface

uses
   classes, contnrs;

type

  TRowList = class;

  TRowItem = class
  private
    FStringList: TStringList;
    FParent: TRowList;
    function GetColCount: Integer;
    procedure SetColCount(const Value: Integer);
    function GetCol(AIndex: Integer): string;
    procedure SetCol(AIndex: Integer; const Value: string);
  protected
    property ColCount: Integer read GetColCount write SetColCount;
  public
    constructor Create( AParentList: TRowList; AColCount: Integer );
    destructor Destroy; override;
    property Col[ AIndex: Integer ]: string read GetCol write SetCol;
    function AsText( ADelimiter: Char = ',' ): string;
  end;

  TRowList = class
  private
    FList: TObjectList;
    FColCount: Integer;
    function GetCell(ACol, ARow: Integer): string;
    function GetRow(AIndex: Integer): TRowItem;
    procedure SetCell(ACol, ARow: Integer; const Value: string);
    function GetColCount: Integer;
    procedure SetColCount(const Value: Integer);
    function GetRowCount: Integer;
    procedure SetRowCount(const Value: Integer);
  public
    constructor Create;
    destructor Destroy; override;
    function AddRow( ARow: TRowItem ): Integer; overload;
    function AddRow(): TRowItem; overload;
    property Rows[ AIndex: Integer]: TRowItem read GetRow;
    property RowCount: Integer read GetRowCount write SetRowCount;
    property ColCount: Integer read GetColCount write SetColCount;
    property Cell[ ACol, ARow: Integer]: string read GetCell write SetCell;
    function AsText( AColDelim: Char = ','; const ARowDelim: string = sLineBreak): string;
  end;

implementation

{ TRowItem }

function TRowItem.AsText(ADelimiter: Char): string;
begin
  FStringList.Delimiter := ADelimiter;
  Result := FStringList.DelimitedText;
end;

constructor TRowItem.Create( AParentList: TRowList; AColCount: Integer );
begin
  FStringList := TStringList.Create;
  ColCount := AColCount;
end;

destructor TRowItem.Destroy;
begin
  FStringList.Free;
  inherited;
end;

function TRowItem.GetCol(AIndex: Integer): string;
begin
  Result := '';
  if (AIndex >=0) and (AIndex < ColCount) then
    Result := FStringList[AIndex];
end;

function TRowItem.GetColCount: Integer;
begin
  Result := FStringList.Count;
end;

procedure TRowItem.SetCol(AIndex: Integer; const Value: string);
begin
  if (AIndex <0) or (AIndex >= ColCount) then Exit;
  FStringList[AIndex] := Value;
end;

procedure TRowItem.SetColCount(const Value: Integer);
begin
  if Value < 0 then Exit;
  if Value > FStringList.Count then
    while Value > FStringList.Count do
      FStringList.Add('')
  else
  if Value < FStringList.Count then
   while Value < FStringList.Count do
     FStringList.Delete(FStringList.Count-1)
end;

{ TRowList }

function TRowList.AddRow: TRowItem;
var
  lRow: TRowItem;
begin
  Result := nil;
  lRow := TRowItem.Create( Self, FColCount );
  if AddRow( lRow ) <> -1 then
    Result := lRow;
end;

function TRowList.AddRow(ARow: TRowItem): Integer;
begin
  Result := FList.Add( ARow )
end;

constructor TRowList.Create;
begin
  FList := TObjectList.Create( True );
end;

destructor TRowList.Destroy;
begin
  FList.Free;
  inherited;
end;

function TRowList.AsText(AColDelim: Char;
  const ARowDelim: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 0 to pred( RowCount ) do
    Result := Result + Rows[i].AsText( AColDelim ) + ARowDelim;
end;

function TRowList.GetCell(ACol, ARow: Integer): string;
begin
  Result := Rows[ARow].Col[ACol];
end;

function TRowList.GetColCount: Integer;
begin
  Result := FColCount;
end;



function TRowList.GetRow(AIndex: Integer): TRowItem;
begin
  Result := TRowItem( FList[AIndex] );
end;

function TRowList.GetRowCount: Integer;
begin
  result := FList.Count;
end;

procedure TRowList.SetCell(ACol, ARow: Integer; const Value: string);
begin
  Rows[ARow].Col[ACol] := Value;
end;

procedure TRowList.SetColCount(const Value: Integer);
var
  i: Integer;
begin
  if FColCount = Value then exit;
  for i := 0 to pred( RowCount ) do
    Rows[i].ColCount := Value;
  FColCount := Value;
end;

procedure TRowList.SetRowCount(const Value: Integer);
begin
  if Value < 0 then Exit;
  if RowCount < Value then
    while RowCount < Value do
      AddRow
  else
  if RowCount > Value then
    while RowCount > Value do
      FList.Delete( RowCount-1 );
end;