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;
