本文整理自网络,侵删。
//数据异或校验function BytesXor(buffer:array of byte):Integer;vari:integer;beginResult:=$0;for i:=Low(buffer) to High(buffer) dobeginresult:=result xor buffer[i];end;end;
相关阅读 >>
Delphi indy tidhttp tidhttpserver post get
Delphi pagecontrol.ttabsheet与drivecombobox.items同步
Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法
更多相关阅读请进入《Delphi》频道 >>