[starcon]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57

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;