今天天气好晴朗处处好风光,好天气好开始,图老师又来和大家分享啦。下面给大家推荐TStringGrid多选的复制与拷贝,希望大家看完后也有个好心情,快快行动吧!
【 tulaoshi.com - 编程语言 】
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, , ); 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 := to vTextList.Count - do begin if J + mStringGrid.Row = mStringGrid.RowCount then Break; vLineList.DelimitedText := vTextList[J]; for I := to vLineList.Count - 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://www.tulaoshi.com/n/20160219/1602223.html
看过《TStringGrid多选的复制与拷贝》的人还看了以下文章 更多>>