首页 > 代码库 > TStringGrid多选的复制与拷贝

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;

http://blog.csdn.net/zswang/article/details/111607

TStringGrid多选的复制与拷贝