水市

摘要： //函数说明：字节逆序function ByteReverse(Src: Byte): Byte;asm MOV AL, Src //取得形参 MOV AH, $00 MOV DL, 8 //设置循环控制变量 @L: SHL AH, $01 //当进入循环时将结果逻辑左移一位 CLC //清除CF标志 SHR AL, 1 //将输入参数逻辑右移一位，判断CF标志为0还是为1（循环右移也可以） JNC @E //CF位为0则直接跳转到NOP指令 ADD AH, $01 @E: NOP DEC DL //循环控制计数器减一 JN... 阅读全文

摘要： 在TEdit控件的OnKeyPress事件中加入如下代码即可实现：var strTmp: string; //从ClipBoard中获得当前的字符串 function GetClipBoardString(): string; var arTmp: array [0..255] of Char; begin Clipboard.Open; try if Clipboard.GetTextBuf(arTmp, 256) > 0 then Result:= arTmp else Result:= ''; ... 阅读全文