cxgrid全选

procedure TWebOrder.SelectAll;
var
  iSelected: Integer;
begin
  iSelected := 0;
  if DataSet.RecordCount = 0 then
    Exit;
  try
    DataSet.DisableControls;
    DataSet.First;
    case DataSet.FieldByName('IS_SELECTED').AsInteger of
      0: iSelected := 1;
      1: iSelected := 0;
    end;
    //选择框赋值
    while not DataSet.Eof do
    begin
      DataSet.Edit;
      DataSet.FieldByName('IS_SELECTED').AsInteger := iSelected;


      DataSet.Next;
    end;//endWhile


    DataSet.First;
  finally
    DataSet.EnableControls;
  end;
end;