TTMSFNCCustomDataGridDatabaseAdapter.RemoveAllColumns -> ListIndex Out of Range

[Rieger_Maximilian]

The TMSFNCDataGridAdapter has a bug in the for loop. (Index runs to Columns.Count instead of Columns.Count - 1)

procedure TTMSFNCCustomDataGridDatabaseAdapter.RemoveAllColumns;
var
  i: Integer;
begin
  DataInstance.BeginUpdate;
//  for i := 0 to Columns.Count do
  for i := 0 to Columns.Count - 1 do
  begin
    Columns[i].FieldName := '';
    Columns[i].Header := '';
  end;

  Columns.Clear;
  DataInstance.Clear;
  DataInstance.RowCount := 0;
  DataInstance.ColumnCount := 0;
  DataInstance.EndUpdate;
end;

[Pieter]

Nicely spotted, thanks, fixed!