常规参数
文章标题:
权重:
文章摘要:
function IsWrongIP(ip: string): Boolean;varz, i: byte;st: array[1..3] of byte;constziff = ['0'..'9'];beginst[1] := 0;st[2] := 0;st[3] := 0;z := 0;Result := False;for i := 1 to Length(ip) do if ip[i] in ziff thenelsebeginif ip[i] = '.' thenbeginInc(z
关键字:
合法性 地址 st ip or end if Exit True thenbeginIsWrongIP
管理密码: