delphi 验证ip白名单代码

function CheckWhiteip(const checkip: string;Whitestr:string): Boolean;

var

  I: Integer;

  ipstr:string;

  Whitelist :TStrings;

begin

Result :=false;

Whitelist := TStringList.Create;

Whitelist.DelimitedText := Whitestr;

Whitelist.Delimiter := '@';

for i := 0 to Whitelist.Count-1 do

begin

ipstr:=checkip.Split(['.'])[0]+'.'+checkip.Split(['.'])[1]+'.';

if Pos(ipstr,Whitelist[i])>0 then

begin

Result :=true;

//Break;

end;

end;

Whitelist.free;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

if CheckWhiteip('192.66.41.30','222.66.@192.66.') then

begin

  text:='白名单';

end

else

begin

  text:='非白名单';

end;

end;