TStringGrid多选的复制与拷贝

uses Clipbrd;

function StringGridSelectText(mStringGrid: TStringGrid): string;

var

  I, J: Integer;

  S: string;

begin

  Result := '';

  if not Assigned(mStringGrid) then Exit;

  for J := mStringGrid.Selection.Top to mStringGrid.Selection.Bottom do

  begin

    S := '';

    for I := mStringGrid.Selection.Left to mStringGrid.Selection.Right do

      S := S + #9 + mStringGrid.Cells[I, J];

    Delete(S, 1, 1);

    Result := Result + S + #13#10;

  end;

end; { StringGridSelectText }

procedure StringGridPasteFromClipboard(mStringGrid: TStringGrid);

var

  vTextList: TStringList;

  vLineList: TStringList;

  I, J: Integer;

begin

  vTextList := TStringList.Create;

  vLineList := TStringList.Create;

  vLineList.Delimiter := #9;

  try

    vTextList.Text := Clipboard.AsText;

    for J := 0 to vTextList.Count - 1 do

    begin

      if J + mStringGrid.Row >= mStringGrid.RowCount then Break;

      vLineList.DelimitedText := vTextList[J];

      for I := 0 to vLineList.Count - 1 do

      begin

        if I + mStringGrid.Col >= mStringGrid.ColCount then Break;

        mStringGrid.Cells[I + mStringGrid.Col, J + mStringGrid.Row] := vLineList[I];

      end;

    end;

  finally

    vTextList.Free;

    vLineList.Free;

  end;

end; { StringGridPasteFromClipboard }

procedure StringGridCopyToClipboard(mStringGrid: TStringGrid);

begin

  Clipboard.AsText := StringGridSelectText(mStringGrid);

end; { StringGridCopyToClipboard }

procedure TForm1.MenuItemCopyClick(Sender: TObject);

begin

  StringGridCopyToClipboard(StringGrid1);

end;

procedure TForm1.MenuItemPasteClick(Sender: TObject);

begin

  StringGridPasteFromClipboard(StringGrid1);

end;

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

  if ssCtrl in Shift then

    case Key of

      Ord('C'): StringGridCopyToClipboard(TStringGrid(Sender));

      Ord('V'): StringGridPasteFromClipboard(TStringGrid(Sender));

    end;

end;