Копирование строки из DBGrid-а в Clipboard

[starcon]

Уважаемые форумчане, помогите разобраться в коде.
Нужно копировать только выделенные строки из DBGrid в Clipboard.
Вот рабочий код для копирования всей таблицы

procedure CopyGRDToClb(dbg: TDBGrid);
var
  bm: TBookMark;
  pch, pch1: PChar;
  s, s2: string;
  i, j: integer;
begin
  s := '';
  for j := 0 to dbg.Columns.Count - 1 do
    s := s + dbg.Columns.Items[j].Title.Caption + #9;
  s := s + #13 + #10;
  if not dbg.DataSource.DataSet.active then
  begin
    ShowMessage('Нет выборки!!!');
    Exit;
  end;
  try
    dbg.Visible := False;
    bm := dbg.DataSource.DataSet.GetBookmark;
    dbg.DataSource.DataSet.First;
    while not dbg.DataSource.DataSet.EOF do
    begin
      s2 := '';
      for j := 0 to dbg.Columns.Count - 1 do
      begin
        s2 := s2 + dbg.Columns.Items[j].Field.AsString + #9;
      end;
      s := s + s2 + #13 + #10;
      dbg.DataSource.DataSet.Next;
    end;
    GetMem(pch, 100);
    GetMem(pch1, 100);
    GetKeyboardLayoutName(pch);
    StrCopy(pch1, pch);
    while pch <> '00000419' do
    begin
      ActivateKeyboardLayout(HKL_NEXT, 0);
      GetKeyboardLayoutName(pch);
      if strComp(pch, pch1) = 0 then
        StrCopy(pch, '00000419');
    end;
 
    clipboard.AsText := s;
    while strComp(pch, pch1) <> 0 do
    begin
      ActivateKeyboardLayout(HKL_NEXT, 0);
      GetKeyboardLayoutName(pch);
    end;
 
    FreeMem(pch);
    FreeMem(pch1);
 
    dbg.DataSource.DataSet.GotoBookmark(bm);
  finally
    dbg.Visible := True;
  end;
end;

[Аватар]

см. DBGrid.SelectedRows

[starcon]

Сообщение от Аватар

см. DBGrid.SelectedRows

Спасибо, я знаю ,что за строки отвечает SelectedRows , а за колонки Columns.

Не знаю , как правильно поменять это в коде.

Только начал изучать язык

[Аватар]

Цикл не по DataSet, а по SelectedRows. Строку датасета получать с помощью GotoBookmark. В делфийском хелпе для SelectedRows и пример есть на этот случай

[starcon]

Спасибо, разобрался.