|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Memo найти слово и проверять символы стоящие справа
Привет Всем!
Есть такая проблема, толи я чёт совсем не понимаю, толи процедура сложна =) Суть вопроса такова есть допустим текст хранящися в Tmemo Настройка протокола IP для Windows Имя компьютера . . . . . . . . . : Игорь-ПК Основной DNS-суффикс . . . . . . : Тип узла. . . . . . . . . . . . . : Смешанный IP-маршрутизация включена . . . . : Нет WINS-прокси включен . . . . . . . : Нет Адаптер PPP VPN-подключение: DNS-суффикс подключения . . . . . : Описание. . . . . . . . . . . . . : VPN-подключение Физический адрес. . . . . . . . . : DHCP включен. . . . . . . . . . . : Нет Автонастройка включена. . . . . . : Да IPv4-адрес. . . . . . . . . . . . : 81.9.91.241(Основной) Маска подсети . . . . . . . . . . : 255.255.255.255 Основной шлюз . . . . . . . . . : 0.0.0.0 DNS-серверы. . . . . . . . . . . : 81.9.80.10 81.9.80.9 NetBios через TCP/IP. . . . . . . . : Включен нужно искать допустим слово "Имя компьютера" и выводить допустим в label Игорь-ПК либо искать "Адаптер PPP" и выводить VPN-подключение Нашёл код как искать значения в Tmemo но как переделать для моих нужд так и не дошло. Код:
var S : String; LenW,i, j : Integer; begin //Искомый текст, буквы которого преобразованы к заглавным. gText := AnsiUpperCase(Edit4.Text); LenW := Length(gText)+3;// здесь выделяем ещё три знака после символа if True then //Текст из Мемо с буквами, приведёнными к заглавному варианту S := AnsiUpperCase(Memo2.Text); if gPos = 0 then gPos := 1; gPos := PosEx(gText, S, gPos); if gPos > 0 then begin Memo2.SetFocus; //Выделяем найденный текст. Memo2.SelStart := gPos-1 ; Memo2.SelLength := LenW; //Прокручиваем текст в окне редактирования так, //чтобы выделенная часть стала видимой SendMessage(Memo1.Handle, EM_SCROLLCARET, 0, 0); memo3.Lines.text:=memo3.Lines.text + Memo2.SelText + #13#10; //пишим с переходом на строку вниз end; //Позицию для начала следующего поиска устанавливаем //непосредственно справа от текущего найденного шаблона. if gPos > 0 then gPos := gPos + LenW; end; |
#2
|
||||
|
||||
Решение еще нужно или уже истек срок давности?
Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |
#3
|
||||
|
||||
Цитата:
Google в помощь |