Показать сообщение отдельно
  #4  
Старый 27.08.2016, 19:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Можно проще в данном случае:
Код:
uses Masks;

var
  ip : String;

...
ip := GetLocalIP;
Button1.Enable := MatchesMask(ip,'192.168.*.*');
Button2.Enable := MatchesMask(ip,'111.12.*.*');
...
Ответить с цитированием