[exap]

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

Код:

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.]

Код:

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

[exap]

эммм....

Код:

dbgrid3.cells[0,5]

?

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

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

Код:

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

[exap]

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

[exap]

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

Код:

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;

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