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;
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;
procedure stringgridcopytoclipboard
(mstringgrid
:tstringgrid
);begin
clipboard
.astext
:=stringgridselecttext
(mstringgrid
);end;
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;
CxGrid多選時，獲取多選的資料
當gridmode為false時。可以自動排序。當gridmode為false時 多選 使用 gridview.controller.selectedrowcount 1 do begin j getselectedrowindex i 先獲取值 行的 索引值 yszdmxreferlistform...
多選框向後臺傳值，多選框的回顯，對多選框的各種操作
1.多選框的回顯 js function 獲取多選框需要回顯得對應的值集合 console.info checkarray checkarray for var i 0 i 獲取所有核取方塊物件的value屬性，然後，用checkarray i 和他們匹配，如果有，則說明他應被選中 each che...
多選框向後臺傳值，多選框的回顯，對多選框的各種操作
1.多選框的回顯 js function 獲取多選框需要回顯得對應的值集合 console.info checkarray checkarray for var i 0 i2.多選框往後臺傳值接收 request.getparametervalues c1 他返回的是一個string，其中c1是多選...
Python dictionary字典的複製方法
dict2 dict1 第一種你想到的複製方法 dict1 dict2 dict1 dict1 a 2 dict2 原因 設想是一個物件 型別是詞典的物件 dict2 dict1，不過是這個物件的不同名字而已，因此並不是複製。dict2 dict1.copy or dict2.update dict...
C CheckBoxList多選項的取出
1.把資料繫結到checkboxlist。2.迴圈讀取出來 protected void checkboxlist1 selectedindexchanged object sender,eventargs e 獲取選中項 一 獲取選中checkboxlist的值 checkboxlist 的id ...