DBGRID

با سلام .یک DBGRID دارم چی جوری می تونم چند سطر متوالی را انتخاب و حذف کرد یا برای گزارش گیری به Quick Report فرستاد؟:متفکر::متفکر:

http://delphi.about.com/od/usedbvcl/l/aa032503a.htm

var

  i: Integer;

  sum : Single;

  INSTR : String ;

begin

  if DBGrid1.SelectedRows.Count > 0 then

  begin

    sum := 0;

    with DBGrid1.DataSource.DataSet do

    begin

      for i := 0 to DBGrid1.SelectedRows.Count-1 do

      begin

        GotoBookmark(Pointer(DBGrid1.SelectedRows.Items[i]));

        sum:= sum + AdoQuery1.FieldByName('Size').AsFloat;

        INSTR := INSTR + AdoQuery1.FieldByName('ID').AsString + ',';



      end;

    end;

    edSizeSum.Text :=  FloatToStr(sum);

  end ;

Delete(INSTR, length(INSTR) , 1) ;

وقتي شما مي توني ليست ركوردهاي انتحابي رو بگيري مي توني يه Query ايجاد كني
بر فرض اگه ID اون ركوردها در بالا گرفتي ميشه يه كوئري حذف يا انتخاب ديگه نوشت

AdoQuer2.Sql.Text := 'Select * From TableName where ID IN (' + +')'