DbGrid SelectedRows

[hasangoktas]

Merhaba 

DBGrid de SelectedRows u nasıl alabilirim? 1 den fazla satır seçiyoruz. 

[Hayri ASLAN]

Merhaba

 

GridMultiSelect demosunu inceleyebilirsiniz.

[hasangoktas]

Merhaba Şu şekilde aldım.

 

function SelRowsColumnValue(ASender: TObject; fieldName:String):String;

var

  i : Integer;

  str : String;

  aDataSet : TDataset;

  aGrid : TUniDBGrid;

begin

  aGrid := tUniDbGrid(ASender) ;

  aDataSet := Agrid.DataSource.DataSet;

  ADataSet.DisableControls;

  try

    for I := 0 to AGrid.SelectedRows.Count - 1 do

    begin

      ADataSet.Bookmark := AGrid.SelectedRows;

      str :=str+','+ADataSet.FieldByname(fieldName).AsString;

    end;

  finally

    ADataSet.FreeBookmark(ADataSet.Bookmark);

    ADataSet.EnableControls;

  end;

 

   Str := Copy (Str,2,Length(Str)-1);

   Result:= Str;

 

end;