[exap]

Здравствуйте!У меня есть такой код:

Код:

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 58

procedure TForm1.Button3Click(Sender: TObject); var   bm: TBookMark;   pch, pch1: PChar;   s, s2: string;   j: integer; begin   s := '';   for j := 0 to dbgrid3.Columns.Count - 1 do     s := s + dbgrid3.Columns.Items[j].Title.Caption + #9;   s := s + #13 + #10;   if not dbgrid3.DataSource.DataSet.active then   begin     ShowMessage('Нет выборки!!!');     Exit;   end;   try     dbgrid3.Visible := False;     bm := dbgrid3.DataSource.DataSet.GetBookmark;     dbgrid3.DataSource.DataSet.First;     while not dbgrid3.DataSource.DataSet.EOF do     begin       s2 := '';       for j := 0 to dbgrid3.Columns.Count - 1 do       begin         s2 := s2 + dbgrid3.Columns.Items[j].Field.AsString + #9;       end;       s := s + s2 + #13 + #10;       dbgrid3.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);       dbgrid3.DataSource.DataSet.GotoBookmark(bm);     ShowMessage('Данные скопированы!');   finally     dbgrid3.Visible := True; end;

который копирует содержимое dbgrida в буфер обмена.Как скопировать содержимое не всего грида,а,допустим только 5 столбца?

[M.A.D.M.A.N.]

Код:

1 2 3 4 5

uses clipbrd; ... begin   clipboard.astext(dbgrid.cells[0,5]);//номер ячейки end;

[exap]

эммм....

Код:

1	dbgrid3.cells[0,5]

?

[M.A.D.M.A.N.]

Сорри, спутал со StringGrid
Млжет так

Код:

1	clipboard.astext(dbgrid3.Columns.Items[j].Field.AsString)

[exap]

нет.чего-то никак не работает(((

[exap]

код немного изменился.вот он:

Код:

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button3Click(Sender: TObject); var i: integer; begin   dbgrid3.DataSource.DataSet.First;   while not dbgrid3.DataSource.DataSet.EOF do   begin     for i := 0 to (dbgrid3.DataSource.Dataset.FieldCount - 1) do      Clipboard.AsText:=(dbgrid3.DataSource.Dataset.Fields[5].AsString);     dbgrid3.DataSource.DataSet.Next;   end; end;

в буфере только одно значение. В чем ошибка?