Цитата:
Сообщение от 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;
...