Fórum Erro num StringGrid #374116

    ColCount  := Trunc(QtdAnos)+1;
    FixedCols := 1; 

    RowCount  := Length(Cresc^)+1; 
    FixedRows := 1;

Fixed row count must be less than row count;

var i, j : integer;
    Cresc : ^TCrescimento;
begin
  if IndexIndice = 0 then
    if pgcCapa.ActivePageIndex = 1 then
      if listview.Items.Count > 0 then
        btnTransformadores.Enabled := true
      else
        btnTransformadores.Enabled := false;
  with StringGrid do
  begin 
    if (ListView.Selected = nil) or (ListView.Selected.Data = nil) then
    begin
      FixedCols := 0; // é preciso zerar o numero de colunas fixas
      FixedRows := 0; // é preciso zerar o numero de linhas fixas

      RowCount := 1;
      ColCount := 1;

      Exit;
    end;

    Cresc := ListView.Selected.Data;
    ColCount := Trunc(QtdAnos)+1;
    // verifica se deve fixar a coluna
    if ColCount > 1
      FixedCols := 1
    else
      FixedCols := 0;

    ColWidths[0] := 90;

    for i := 1 to ColCount-1 do
      Cells[i,0] := ´Ano ´+FloatToStr(i);

    RowCount := Length(Cresc^)+1;
    // verifica se deve fixar a linha
    if RowCount > 1
      FixedRows := 1
    else
      FixedRows := 0;

    for i := 0 to length(Cresc^)-1 do
    begin
      SetLength(Cresc^[i].Anos,QtdAnos);
      Cells[0,i+1] := Cresc^[i].NomeClasse;
      for j := 0 to Length(Cresc^[i].Anos)-1 do
      begin
        if Cresc^[i].Anos[J].ValorPorc = 0 then
          Cresc^[i].Anos[J].ValorPorc := 0;
        Cells[j+1,i+1] := FloatToStr(Cresc^[i].Anos[J].ValorPorc);
      end;
    end;
  end;
end;