【结】多行的删除~~~~**

op+

选中DataGrid的【Options】的【egoMultiSelect】选项，然后代码如下：
  var
    i, j: Integer;
    s: string;
  begin
    if DataGrid1.SelectedCount > 0 then
      with DataGrid1.DataSource.DataSet do
        for i := 0 to DataGrid1.SelectedCount - 1 do
        begin
          Bookmark := DataGrid1.SelectedRows;
          for j := 0 to FieldCount - 1 do
          begin
            if (j > 0) then s := s + ', ';
            s := s + Fields[j].AsString;
          end;
          Memo1.Lines.Add(s);
          s := '';
        end;
  end;

这里是选中多行了。。但是要怎么样删除上面选中的多行。给行代码？？谢谢~~

Akon

DataGrid1.DeleteSelection

op+

QQ群搞定了。。原来不用参数的。。

        DataGrid1.DeleteSelection;

结T`~~

atiger

ok