摘要：
给大家个链接了：
http://www.marcocantu.com/development/borcon2004/default.htm
http://www.chuckscorner.com/
看起来很酷啊 ！
......
摘要：
var
igridsize : integer = 16;
procedure tform1.formpaint(sender: tobject);
var
i, j : integer;
begin
self.doublebuffered := true;
for i := 0 to self.width do
for j := 0 to self.heigh......
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 := ...
下一页 摘要：
校验码辅导讲座
老顽童（原创）
二进制数据经过传送、存取等环节，会发生误码（1变成0或0变成1），这就有如何发现及纠正误码的问题。所有解决此类问题的方法就是在原始数据（数码位）基础上增加几位校验（冗余）位。
一、码距
一个编码系统中任意两个合法编码（码字）之间不同的二进数位（bit）数叫这两个码字的码距，而整个编码系统中任意两个码字的的最小距离就是该编码系统的码距。
如图1所示的一个......
