Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.09.2023, 15:08   #1
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 248
По умолчанию как из ip адреса вывести последние цифры

добрый день, поскажите как играя со строками

из ip адреса вывести последние цифры

s :=Copy(s, 1, Pos('.', s));

скаежем ip Адрес у ПК 192.168.108.14

нужно вывести 108.14

или 11.14.105.15

то выводом 105.15

причем нужны оба варианта 105.15 и 10515

помогите. очень нужно. спасибо большое
AppData вне форума Ответить с цитированием
Старый 11.09.2023, 15:39   #2
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Код:
S:=Copy(S,PosEx('.',S,PosEx('.',S,1))+1,Length(S));
northener вне форума Ответить с цитированием
Старый 11.09.2023, 15:51   #3
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 248
По умолчанию

из 192.168.0.166
вышло 168.0.166
AppData вне форума Ответить с цитированием
Старый 11.09.2023, 15:52   #4
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 248
По умолчанию

S:=Copy(S,PosEx('.',S,PosEx('.',S,1 )+1)+1,Length(S));

Последний раз редактировалось AppData; 11.09.2023 в 16:07.
AppData вне форума Ответить с цитированием
Старый 11.09.2023, 16:06   #5
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Код:
S:=Copy(S,PosEx('.',S,PosEx('.',S,1)+1)+1,Length(S));
northener вне форума Ответить с цитированием
Старый 11.09.2023, 16:09   #6
AppData
Форумчанин
 
Регистрация: 20.09.2013
Сообщений: 248
По умолчанию

Цитата:
Сообщение от northener Посмотреть сообщение
Код:
S:=Copy(S,PosEx('.',S,PosEx('.',S,1)+1)+1,Length(S));
огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!

Последний раз редактировалось AppData; 11.09.2023 в 16:16.
AppData вне форума Ответить с цитированием
Старый 11.09.2023, 16:16   #7
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,872
По умолчанию

Код:
S:=Copy(S,PosEx('.',S,PosEx('.',S,PosEx('.',S,1)+1)+1)+1,Length(S));
northener вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вытащить из строки с ип адресом последние цифры AppData Общие вопросы Delphi 48 09.05.2022 01:17
Pascal:Вывести все четные цифры, содержащиеся в слове наибольшей длины, и вывести число повторений каждой этой цифры Alina266 Помощь студентам 3 19.03.2017 13:50
Заменить последние цифры в IP на звездочки nibufep PHP 4 13.04.2015 14:48
Найти степень числа N, у которой три последние цифры одинаковые. Vika_0_0 Паскаль, Turbo Pascal, PascalABC.NET 7 11.03.2012 10:24
Известны фамилии,адреса и телефоны 25-ти человек,Найти фамилии и адреса людей,чей телефон начинается с цифры 3. Расмотреть два слу salomon93 Паскаль, Turbo Pascal, PascalABC.NET 11 01.12.2011 23:36