本文整理自网络,侵删。
function CompareIP(IP1, IP2: array of byte): boolean;var I: integer;begin Result := False; For I := 0 To 3 do begin if IP1[I] <> IP2[I] Then Exit; end; Result := True;end;
相关阅读 >>
Delphi 工程判断内存溢出reportmemoryleaksonshutdown := true;
Delphi有无生成空格的函数,like vb的space(1)
更多相关阅读请进入《Delphi》频道 >>