Maximum wir überschritten!

[thiagojonas]

also so:

Delphi-Quellcode:

 if Index>-1 then
begin
   if calculate_dg.Cells[calculate_dg.FixedCols,Pred(calculate_dg.RowCount)] <> '' then
begin
      calculate_dg.RowCount := Succ(calculate_dg.RowCount);
      calculate_dg.Cells[calculate_dg.FixedCols,Pred(calculate_dg.RowCount)] :=  form4.StringGrid.Cells[0,Index];
      calculate_dg.Cells[1,Pred(calculate_dg.RowCount)] :=  ComboBox.text;
      calculate_dg.Cells[2,Pred(calculate_dg.RowCount)] :=  form4.StringGrid.Cells[8,Index];
      calculate_dg.Cells[3,Pred(calculate_dg.RowCount)] :=  protokoll_cb.Text;
      calculate_dg.Cells[4,Pred(calculate_dg.RowCount)] :=  '';
      calculate_dg.Cells[5,Pred(calculate_dg.RowCount)] :=  datum;
      calculate_dg.Cells[6,Pred(calculate_dg.RowCount)] :=  FormatDateTime('hh:mm',now);
      SaveStringGrid(calculate_dg, 'Data/Penein/'+Txt2Find+'/'+Txt2Find+'.ini');
   end;
  end;
 end;
end;