[Alegun]

Сообщение от starcon

...выделенные строки просто скопировать из DBGrid в Clipboard...

Беттер лейт, зен невер) нид ту реплейс

Код:

...
    while not dbg.DataSource.DataSet.EOF do
     if dbg.SelectedRows.CurrentRowSelected then
    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 else dbg.DataSource.DataSet.Next;
...