반응형 ip address1 [delphi] IP주소 유효성체크 [delphi] IP주소 유효성체크 20070326 function TForm1.IsValidIPAddress(strIP: String): Boolean; var TempList: TStringList; i: Integer; nTemp: Integer; begin Result := False; TempList := TStringList.Create; ExtractStrings(['.'], [], PAnsiChar(strIP), TempList); if TempList.Count = 4 then begin for i := 0 to 3 do begin nTemp := StrToIntDef(TempList[i], -1); if (nTemp 255) then begin break;.. 2017. 2. 12. 이전 1 다음 반응형