我查阅资料没有答案,求助各位了!

解决方案 »

  1.   

    uses Clipbrd;Clipboard.AsText := StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row];
      

  2.   

    循环一下:uses Clipbrd;var
      i, j: Integer;
      s: string;
    begin
      s := '';
      with StringGrid1 do
      for i := Selection.Left to Selection.Right do
        for j := Selection.Top to Selection.Bottom do
          s := s + Cells[i, j] + ' ';
      Clipboard.AsText := s;
    end;
      

  3.   

    谢谢!sysu,在你的提示下,差不多了,我是想把剪贴板内容贴到EXCEL中去。
    该结贴了,不成敬意。二星上将在我心中确实厉害。