| | | |

2020年7月28日

摘要： procedure SwapBytesArr(var BytesArr:array of Byte);var i,h:Integer;begin h:=High(BytesArr); if h=1 then Exit; for i:=0 to (h div 2)-1 do begin BytesAr 阅读全文

posted @ 2020-07-28 09:53 zyb2016 阅读(523) 评论(0) 推荐(0)