копирование определенного набора данных из dbgrid в clipboard

[kate158]

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

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 столбца?

[_SERGEYX_]

S:=dbgrid3.Columns.Items[4].Field.AsString

[kate158]

>>_SERGEYX_
Может я чего-то не догоняю,но при изменении строки на

S:=dbgrid3.Columns.Items[5].Field.AsString

и при вставке данных из буфера,добавляются 6 одинаковых столбцов (в таблице БД у меня 6 столбцов),а мне нужен один....

[_SERGEYX_]

Нужно убрать цикл
for j := 0 to dbgrid3.Columns.Count - 1 do
..............................
и вместо цикла получать содержимое только 5-го столбца (4-го от нуля), а не столбца [j] из цикла.

И зачем столько писанины?
Вот этим кодом я копирую содержимое в Strings.

procedure DatasetToInfFile(aDataset: TDataSet; aStrList: TStrings);
var i: integer;
begin
  aDataSet.First;
  while not aDataSet.EOF do
  begin
    for i := 0 to (aDataset.FieldCount - 1) do
      aStrList.Add(aDataset.Fields[i].FieldName + '|' +
        aDataset.Fields[i].AsString);
    aDataSet.Next;
  end;
end;

Подставь вместо Strings буфер обмена

[kate158]

Извините за назойливость,просто хочу чтобы мой код заработал корректно.
Вот, код

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;

В буфере одна запись..Здесь явно чего-то не хватает.

[vovk]

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

Извините за назойливость,просто хочу чтобы мой код заработал корректно.
Вот, код

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;

В буфере одна запись..Здесь явно чего-то не хватает.

  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;

Clipboard.AsText:=(dbgrid3.DataSource.Dataset.Fields[i].AsString);

[kate158]

>>vovk
хех..
ерор.
"list index out of bounds(6)"
сегодня просто неудачный день)

[vovk]

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

>>vovk
хех..
ерор.
"list index out of bounds(6)"
сегодня просто неудачный день)

плин перечитал пнял в общем

Clipboard.Clear;
DataSet.First;
 while not aDataSet.EOF do
  begin
      Clipboard.AsText:=Clipboard.AsText+(dbgrid3.DataSource.Dataset.Fields[5].AsString);
    DataSet.Next;
 end;

в буфере будет без пробелов все записи с 5 поля

зы

хех..
ерор.
"list index out of bounds(6)"
сегодня просто неудачный день)

странно

[_SERGEYX_]

procedure TForm1.Button3Click(Sender: TObject);
var s: string;
begin
  dbgrid3.DataSource.DataSet.First;
  while not dbgrid3.DataSource.DataSet.EOF do
  begin
    s:=s+(dbgrid3.DataSource.Dataset.Fields[5].AsString)+'|';
    //В конце поставили разделитель (|)
    dbgrid3.DataSource.DataSet.Next;
  end;
  Clipboard.AsText:=s;
end;

[kate158]

ОООО.Какой кайф.Спасибо..))